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SOME HISTORIC BREAKTHROUGHS 


DON’T TAKE AS MUCH EXPLAINING 
AS COMPUSERVE. 


But then, some historic break- 
throughs could only take you from 
the cave to the tar pits and back 
again. 

CompuServe, on the other hand, 
makes a considerably more civilized 
contribution to life. 

It turns the personal computer into 
something useful. 

CompuServe is an information ser- 
vice. Just subscribe, and 24 hours a day, 
7 days a week, a universe of information, 
entertainment and communications is 
at your service. 


a cores a — - 
can do with CompuServe: 


COMMUNICATE 


Easyplex™ Electronic Mail puts friends, 
relatives and business associates in con- 
stant, convenient touch. 


CB Simulator lets thousands of enthusi- | 


astic subscribers “chatter away” on 72 
different channels. 


Over 100 Forums welcome you to join 
their online “discussions.” They’re for 
everyone from computer owners and 
gourmet cooks to physicians and game 
players. 


Bulletin Boards let you “post” messages : 


where thousands will see them. 


HAVE FUN 


Our full range of games includes “You 
Guessed It!,” the first online TV-style 
game show played for real prizes; Mega- 
Wars III, the ultimate in interactive 
excitement; board; parlor; sports and 
educational games. 


SHOP 
THE ELECTRONIC MALL”™ gives you 
‘round the clock shopping for name 
brand goods and services at discount 


prices from nationally known stores and 
businesses. 


SAVE ON TRIPS 


TWA Travelshopper™ lets you scan 
schedules and fares, find the best bar- 
gains and order tickets online. 


A to Z Travel/ News Service provides 


latest travel news plus complete informa- ° 


tion on over 20,000 hotels worldwide. 


MAKE PHI BETA KAPPA 
Grolier’s Academic American 
Encyclopedia’s Electronic Edition 
is a complete, constantly updated 
general reference encyclopedia. 


The College Board, operated by the 

College Entrance Examination Board, 
helps you prepare for the SAT, choose 

a college and get financial aid. 


BE INFORMED 
The AP News Wire (covering all 50 
states and the nation), the Washington 
Post, USA TODAY Update and business 
and trade publications are constantly 
available. And our electronic clipping 
service lets us find, clip and file specific 
news for reading at your convenience. 


INVEST WISELY 


Comprehensive Investment Help 
includes complete statistics on over 
10,000 NYSE, AMEX and OTC securities. 
Historic trading statistics on over 50,000 
stocks, bonds, funds, issues and options. 
Five years of daily commodity quotes. 
Standard & Poor’s. Value Line. And over 
a dozen other investment tools. 


Site II provides demographic and sales 
potential information by state, county 


__ and zip code for the entire country. 


And now for the pleasant surprise. 
Although CompuServe makes the 
most of any computer, it’s a remarkable 
value. You get low start-up costs, low 

usage charges and local-phone-call 


access in most major metropolitan areas. 


EasyPlex and ELECTRONIC MALL are trademarks of CompuServe, Incorporated. Travelshopper is a service mark of TWA. 


Circle no. 237 on reader service card. 


Here’s how to use CompuServe. 

CompuServe is “menu-driven,’ so 
beginners can simply read the lists of 
options on their screens and then type 
in their selections. 

Experts can just type in “GO” followed — 
by the abbreviation for whatever topic 
they're after. 

In case of confusion, typing “H” for 
help brings immediate instructions. 

And you can ask general questions 
either online through our free Feedback 
service or by phoning our Customer 








How to subscribe. 


To access CompuServe, you'll need a 
CompuServe Subscription Kit; a com- 
puter, terminal or communicating word 
processor; a modem and in some cases, 
easy-to-use communications software. 

With your Subscription Kit, you'll 
receive a $25 usage credit, a complete 
hardcover Users Guide, your own 
exclusive user ID number and prelim- 
inary password, and a subscription to 
CompuServe’s monthly magazine, 
Online Today. 

Subscription Kits are available in 
computer stores, electronic equipment 
outlets, retail stores and catalogs. You 
can also subscribe with materials you'll 
find packed right in with many com- 
puters and modems sold today. 





Make a move of historic proportions. _ 
Subscribe to CompuServe today. 


To receive our free informative bro- 
chure or to order direct, call or write: 


CompuServe: 


Information Services 
PO. Box 20212, 5000 Arlington Centre Blvd. 
Columbus, OH 43220 


800-848-8199 


In Ohio, call 614-457-0802 


AnH & R Block Company 





Optotech, Inc. The 544 inch 
Optical Disk Drive 
Is Here! 


Optical Disk Drive 5984 
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A good C book just isn’t complete without a good C 
compiler to go with it. That’s why we give you both. You get 
a comprehensive 450 page book and a full feature standard 
K&R C compiler with the Unix V7 Extensions. The Book is 
loaded with examples that teach you how to program in C. 
And our fast one pass C compiler comes with an equally fast 





The Best C Book 


A Powerful C Compiler 
One Great C Value *39.95 


linker so you don’t waste a lot of time watching your disk 
drives spin. You also get a Unix compatible function library 
that contains more than 150 functions (C source code 
included ). And if all that isn’t enough, we offer you a 30 day 
money back guarantee. So what are you waiting for? The 
exciting world of C is just one free phone call away. 


Language Features 


@ Data Types: char, short, 
int, unsigned, long, float, 
double 


@ Data Classes: auto, 
extern, static, register 


® Typedef, Struct, Union, 
Bit Fields, Enumerations 


® Structure Assignment, 
Passing/Returning 
Structures 


MIX Editor 
$29.95 


When you’re programming in a high 
level language you need a high power- 
ed editor. That’s why we created a 
programmable full/split screen text 
processor. It lets you split the screen 
horizontally or vertically and edit two 
files at once. You can move text back 
and forth between two windows. You 
can also create your own macro com- 
mands from an assortment of over 


USA: $5/Order 
Canada: $10/Order 


Shipping Charges: (No charge for ASM Utility) 


100 predefined commands. The editor 
comes configured so that it works just 
like Wordstar but you can change it if 
you prefer a different keyboard layout. 
The editor is a great companion to our 
C compiler. Because they work so 
well together we want you to have 
both. To make sure you do, we're 
offering the editor for just $15 when 
purchased with the C compiler. 


1) Osborne I DD 
(1) Morrow MD II 























xmembeg 
xmemend 
xmemget 
xmemput 
xmovmem 
exit 


ASM Utility 
$10 





The ASM utility disk allows you to link 
object files created by Microsoft’s MASM 
or M80 assemblers. Lots of useful assem- 
bly language functions are included as 
examples. 









ORDERS ONLY 


1-800-523-9520 


IN TEXAS 
1-800-622-4070 
Canadian Distributor 
Saraguay Software: 416-923-1500 





2116 E. Arapaho 


MIX wis 


software Richardson, TX 75081 
(214) 783-6001 


NOT COPY PROTECTED 
eS = ee ee eee ee eae ee ee eae oe eee 
| Editor $ (29.95) CL) PCDOS/MSDOS (2.0 or later) | Name 
C IBM PC Single Side 
lc $ 
| ee C0 IBM PC Double Side are 
C&Editor $ (54.95) O Tandy 2000 
| City 
a O) 8 Inch 
| ASM Utility $ (10.00) 
O Other State 
| TX Residents $ (6.125% sales tax) © CPM 80 (2.2 or later) 
| Zip 
Shipping $ (see below) rr adicy cen 
| 0 Kaypro II 
Country 
| Total Sra C) Kaypro 4 
| O) Check O Money Order C) Apple (Z80) Phone 
| UO MC/Visa* Exp O Osborne I SD 
i 
l 
l 


Overseas: $10/Editor © $20/C © $30/C & Editor 


Ask about our volume discounts. D| 
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MATH: A Variable Metric Minimizer 


by Joe Marasco 

Unconstrained minimization seeks the minimum of a 
function regardless of its form: polynomial, 
transcendental, or weird. 

PASCAL: Concurrency and Turbo Pascal 

by Ernest E. Bergmann 

Coroutines are an important feature of Modula-2 and Ada; 
here is a straightforward approach to implementing 
coroutines in Turbo Pascal. 

FUTURE PROGRAMMING: The Problems of 
Parallelism 

by Michael Swaine 

Will the future be parallel? 

MS DOS: Speeding MS DOS Execution 

by Gregg Weissman 

Inspired by Dave Cortesi’s puzzles regarding MS DOS 
execution speed, the author interrogated the operating 
system for the solution. 

PORTABILITY: Automatic Porting Between 

Pascal Dialects 

by Michael J. Sorens 

This article presents a proven technique for automating 
the task of porting your programs from one Pascal to 
another. 

PORTABILITY: COM: An 8080 Simulator 

for the MC68000 

by Jim Cathey 

Listing of Cathey’s program continued from January 


COLUMNS 


C CHEST: The Last of the Shell Support Routines 
by Allen Holub 

Allen wraps up the DOS shell with the last of the support 
routines. 

THE RIGHT TO ASSEMBLE: Square Roots 

on the NS32000 

by Richard Campbell 

National Semiconductor’s 320XX processors were designed 
with high-level language compilation in mind. Code and 
benchmarks in C and 320XX assembly language show 
some interesting differences. 
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About the Cover 
Parallel processing. Like a jug- 
gler whose right hand is better 
off not knowing what the left is 
doing, one starts the various pro- 
cesses going and trusts the 
rhythm of the task to stave off di- 
saster. The cover illustration was 
done by Tim Gault of Gault De- 
sign and Illustration. 


This Issue 

The advent of parallel process- 
ing could force us to rethink the 
way we solve problems. Mathe- 
matical algorithms in general are 
routinely, almost by implicit def- 
inition, sequential. Now, things 
are changing. Is some new 
Knuth writing the book on paral- 
lel algorithms? Herein, some per- 
spective on parallel processing 
today and an example of concur- 
rency in Pascal. Also please note 
the new column on assembly 
language and Joe Marasco’s 
monumental minimizer. 


Next Issue 
Our annual look at the tech- 
niques of artificial intelligence 
will present code in Prolog, LISP, 
and Expert-2, led off by Bob 
Brown’s BRIE (Boca Raton Infer- 
ence Engine). 


Its amazing what you. 
can reveal when you strip. 


Introducing a shape that’s about to turn on an Simply by plugging the Cauzin Reader into your 





entire industry. serial or cassette port and placing it over the strip. 
The Softstrip “ data strip. From Cauzin. The reader scans the strip, converts it to com- 
This new technology allows text, graphics, and puter code, and feeds it into any standard communi- 
data to be : - cation interface. 
encoded on a Because strips are so easy to gen- 
Strip of paper erate, most of your favorite magazines 
then easily ee ae ne and books will soon be using them in 
entered into "andreadngitinoyourconputer addition to long lists of program code. 
your computer using a scanning device called the And you'll — | 





Cauzin Softstrip” System Reader be able to enter 
Creating a simple, reliable and cost efficient programs with- 

way to distribute and retrieve information. out typing a 
Softstrip data strips, like those you see here,can single line. 

contain anything that can be put on magnetic disks. There is 
Facts. Figures. Software programs. also software for 
Video games. Product demonstrations. you to generate 


YOUF OWN SHIPS. “cc iiiseteiianataleaiasadis si 
. Letting you Soon everyone will be stripping as data strips appear in 
—_ __ send every- popular magazines, computer books and text books. 

en Oe thing from correspondence to business information 
7 : using our new technology. 
oe | i Find out how much you can reveal by 

‘ / stripping. Just take this ad to your computer dealer 
=... —_—_==~ for a demonstration of the Cauzin Softstrip 
a } System Reader 





Sheet music. er 








bapa swiien Sak Rls eis Or for more information and the name of the 
PRE nk eam peat Masi dealer nearest you, call Cauzin at 1-800-533-7323. 
Asingle strip can hold up to 5500 bytes of In Connecticut, call 573-0150. 
encoded data. 
It can stand up to wrinkles, scratches, ink Te Y 
marks, even coffee te he 
And it can be entered into your computer with | 
a higher degree of reliability than most magnetic media. 835 South Main St) Waterbury CT 06706 


Apple® and Macintosh® are registered trademarks of Apple Computer Inc., Apple® 


is a registered trademark of Appl 
Softstrip® and the Softstrip® System Reader are trademarks of Cauzin Systems, In i Pe ee, 


c., IBM® is a registered trademark of IBM , Inc. 








THE ADVANTAGES OF 


TURBO PASCAL AND DATA STRIPS 


The Cauzin Softstrip™ data strips, on the right, contain the problem described in the article 


“Concurrency and Turbo Pascal” in this issue. 


As you'll recall, Ernest Bergmann, after much trial and error, came up with a means to use Turbo 
Pascal (CP/M-80) for implementing several concurrent tasks. The techniques are useful for writing 
software that has to respond to several real-time events, such as a modem program. 

As Mr. Bergmann points out: because of the ease of writing and trying variations quickly and 
clearly, Turbo Pascal is an ideal and convenient way to become acquainted with multi-tasking. 
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After youve read in the data strips, refer to Mr. Bergmann’ article for operating instructions. | il, 


Reprinted with permission of Dr. Dobb's Journal. 
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Editorial 





dmirers of 
the late, la- 
mented Sof- 


talk PC will experi- 
ence a twinge of déja 
vu on reading our ta- 
ble of contents this 
month: The Right to 
Assemble was a regu- 
lar feature of that 
magazine, written by 
our own Ray Dun- 
can. The writer in us regretted such 
an apt title going to dust, and the pro- 
grammer in us wanted to see a regu- 
lar column on assembly language in 
our pages, so the editor in us made 
some phone calls. Craig Stinson of 
Softalk and Ray graciously granted 
us use of the title. The column’s con- 
tents will come from several authors 
and address several architectures; it 
will always include assembly-lan- 
guage code. 

It's hard to let a good column title 
or idea atrophy. We got a call from 
Fred Davis at A+ magazine asking of 
us what we had asked of Craig and 
Ray. As a result, Computer Calisthen- 
ics, the puzzle column launched 
here in DDJ by Michael Wiesenberg, 
is now running in A+. Many of you 
will recall that the original complete 
title of DDJ was Dr. Dobb’s Journal of 
Computer Calisthenics and Orth- 
odontia: Running Light Without 
Overbyte. Now we just need to li- 
cense the Orthodontia. 

The real old-timers will be grum- 
bling about our error in the last para- 
graph; the original title spoke of Tiny 
BASIC, not Computers, they will 
point out. True enough, and that’s oc- 
casion for another note of avuncular 
pride: Gordon Brandly’s February 
1985 piece entitled ‘Tiny BASIC for 
the 68000” was just reprinted in I/O, 
a leading Japanese computer maga- 
zine. I/O has also reprinted Jim Hen- 
drix’s articles on Small-C. We're hap- 
py that DDJ can be involved in 
software development worldwide. 
In fact, since we believe that the 
community of serious programmers 
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is fundamentally one 
international com- 
munity, we are be- 
ginning to make a 
greater effort to dis- 
tribute the magazine 
internationally and 
to draw on authors 
from around the 
world. 

This issue was too 
stuffed to fit in Chip- 
Watch, Professional Programmer, or 
DDJ On Line, but here at least is the 
on-line report: 

After a fitful start in January, the 
DDJFORUM is humming along nicely 
on CompuServe. We apologize to all 
who logged on January 1 only to find 
things in an unfinished state. We be- 
came fully operational on January 16 
and since then have gradually added 
to our Data Libraries (DLs). You can 
now download all the code from is- 
sues 111, 112, and 113 (with the ex- 
ception of Allen Holub’s MS DOS shell 
and utilities) along with various se- 
lections from back issues. 

We want the DLs to contain listings 
that our readers have asked for. If 
there is something from a back issue 
that is particularly useful to you, let 
us know. If demand is great enough, 
we will make it available. 

Our message boards have also seen 
considerable activity. Columnists 
Ray Duncan and Allen Holub are sy- 
sops and log on regularly to answer 
queries and chat. As of the date this 
was written, no special conferences 
have been planned, but we suggest 
that you sign on and read the Confer- 
ence Bulletin to find a more recent 
update. 

Hope you will drop by soon. 


Ticked Susomrs 


Michael Swaine | 
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The C for Microcom 


> 


puters 


2 PC-DOS, MS-DOS, CP/M-86, Macintosh, Amiga, Apple II, CP/M-80, Radio Shack, 
Commodore, XENIX, ROM, and Cross Development systems 


Manx Aztec C86 
“A compiler that has many strengths ... quite valuable 
for serious work” 

Computer Language review, February 1985 
Great Code: Manx Aztec C86 generates fast executing 
compact code. The benchmark results below are from a 
study conducted by Manx. The Dhrystone benchmark 
(CACM 10/84 27:10 pl1018) measures performance for a 
systems software instruction mix. The results are with- 
out register variables. With register variables, Manx, 
Microsoft, and Mark Williams run proportionately faster, 
Lattice and Computer Innovations show no improve- 
ment. 


Execution Code Compile/ 
Time Size Link Time 


Dhrystone Benchmark 
Manx Aztec C86 3.3 34 secs 
Microsoft C 3.0 34 secs 
Optimized C86 2.20J 53 secs 
Mark Williams 2.0 56 secs 
Lattice 2.14 89 secs 


93 secs 
119 secs 
172 secs 
113 secs 
117 secs 


Great Features: Manx Aztec C86 is bundled with a powerful 
array of well documented productivity tools, library routines 
and features. 

Optimized C compiler 
AS86 Macro Assembler 
80186/80286 Support 
8087/80287 Sensing Lib 
Extensive UNIX Library 
Large Memory Model 

Z (vi) Source Editor -c 
ROM Support Package-c INTEL HEX Utility -c 
Library Source Code -c Mixed memory models -c 
MAKE, DIFF, and GREP -c Source Debugger -c 

One year of updates -c CP/M-86 Library -c 


Symbolic Debugger 

LN86 Overlay Linker 
Librarian 

Profiler 

DOS, Screen, & Graphics Lib 
Intel Object Option 

CP/M-86 Library -c 


Manx offers two commercial development systems, 
Aztec C86-c and Aztec C86-d. Items marked -c are 
special features of the Aztec C86-c system. 


Aztec C86-c Commercial System $499 
Aztec C86-d Developer’s System $299 
Aztec C86-p Personal System $199 
Aztec C86-a Apprentice System $49 


All systems are upgradable by paying the difference 
in price plus $10. 


Third Party Software: There are a number of high qual- 
ity support packages for Manx Aztec C86 for screen 
management, graphics, database management, and soft- 
ware development. 


C-tree $395 
PHACT $250 
HALO $250 Amber Windows $59 
PRE-C $395 Windows for C $195 
WindScreen $149 FirsTime $295 
SunScreen $99 C Util Lib $185 
PANEL $295 Plink-86 $395 


Greenleaf $185 
PC-lint $98 


Manx Aztec C68k 


“Library handling is very flexible ... documentation is 
excellent ... the shell a pleasure to work in ... blows 
away the competition for pure compile speed... an ex- 
cellent effort.” 

Computer Language review, April 1985 


Aztec C68k is the most widely used commercial C com- 
piler for the Macintosh. Its quality, performance, and 
completeness place Manx Aztec C68k in a position be- 
yond comparison. It is available in several upgradable 
versions. 
Optimized C 
Macro Assembler 
Overlay Linker 
Resource Compiler 
Debuggers 
Librarian 

Source Editor 
MacRam Disk -c 
Library Source -c 


Creates Clickable Applications 
Mouse Enhanced SHELL 
Easy Access to Mac Toolbox 
UNIX Library Functions 
Terminal Emulator (Source) 
Clear Detailed Documentation 
C-Stuff Library 

UniTools (vi,make,diff,grep) -c 
One Year of Updates -c 


Items marked -c are available only in the Manx Aztec 
C86-c system. Other features are in both the Aztec C86-d 
and Aztec C86-c systems. 


Aztec C68k-c Commercial System $499 
Aztec C68d-d Developer’s System $299 
Aztec C68k-p Personal System $199 
C-tree database (source) $399 


AMIGA, CP/M-68k, 68k UNIX call 


Manx Aztec C65 


“The AZTEC C system is one of the finest software 
packages I have seen” 
NIBBLE review, July 1984 


A vast amount of business, consumer, and educational 
software is implemented in Manx Aztec C65. The quality 
and comprehensiveness of this system is competitive 
with 16 bit C systems. The system includes a full optim- 
ized C compiler, 6502 assembler, linkage editor, UNIX 
library, screen and graphics libraries, shell, and much 
more. The Apple II version runs under DOS 3.3, and 
ProDOS, Cross versions are available. 

The Aztec C65-c/128 Commodore system runs under 
the C128 CP/M environment and generates programs for 
the C64, C128, and CP/M environments. Call for prices 
and availability of Apprentice, Personal and Developer 
versions for the Commodore 64 and 128 machines. 


Aztec C65-c ProDOS & DOS 3.3. $399 
Aztec C65-d Apple DOS 3.3 $199 
Aztec C65-p Apple Personal system $99 
Aztec C65-a for learning C $49 
Aztec C65-c/128 C64, C128, CPIM $399 


Distribution of Manx Aztec C 


In the USA, Manx Software Systems is the sole and ex- 
clusive distributor of Aztec C. Any telephone or mail 
order sales other than through Manx are unauthorized. 


Cross developed programs are edited, compiled, assem- 
bled, and linked on one machine (the HOST) and trans- 
ferred to another machine (the TARGET) for execution. 
This method is useful where the target machine is slower 
or more limited than the HOST, Manx cross compilers 
are used heavily to develop software for business, 
consumer, scientific, industrial, research, and education- 
al applications. 


HOSTS: VAX UNIX ($3000), PDP-11 UNIX ($2000), MS- 
DOS ($750), CP/M ($750), MACINTOSH ($750), 
CP/M-68k ($750), XENIX ($750). 


TARGETS: MS-DOS, CP/M-86; Macintosh, CP/M-68k, 
CP/M-80, TRS-80 3 & 4, Apple II, Commodore C64, 
8086/80x86 ROM, 68xxx ROM, 8080/8085/Z80 ROM, 
65xx ROM. 

The first TARGET is included in the price of the HOST 
system. Additional TARGETS are $300 to $500 (non 
VAX) or $1000 (VAX). 

Call Manx for information on cross development to the 
68000, 65816, Amiga, C128, CP/M-68K, VRTX, and 
others. 


Manx Aztec Ci 


“‘T’ve had a lot of experience with different C compilers, 
but the Aztec C80 Compiler and Professional Develop- 
ment System is the best I’ve seen.” 

80-Micro, December, 1984, John B. Harrell III 


Aztec C II-c (CP/M & ROM) $349 
Aztec C II-d (CP/M) $199 
C-tree database (source) $399 
Aztec C80-c (TRS-80 3 & 4) $299 
Aztec C80-d (TRS-80 3 & 4) $199 


How To Become an Aztec C User 


To become an Aztec C user‘ call 1-800-221-0440 or call 
1-800-832-9273 (800-TEC WARE). In NJ or outside the 
USA call 201-530-7997. Orders can also be telexed to 
4995812. 

Payment can be by check, COD, American Express, 
VISA, Master Card, or Net 30 to qualified customers. 

Orders can also be mailed to Manx Software Systems, 
Box 55, Shrewsbury, NJ 07701. 


How To Get More Information 

To get more information on Manx Aztec C and related 
products, call 1-800-221-0440, or 201-530-7997, or write 
to Manx Software Systems. 


30 Day Guarantee 

Any Manx Aztec C development system can be return- 
ed within 30 days.for a refund if it fails to meet your 
needs. The only restrictions are that the original pur- 
chase must be directly from Manx, shipped within the 
USA, and the package must be in resalable condition. 
Returned items must be received by Manx within 30 
days. A small restocking fee may be required. 


Discounts 

There are special discounts available to professors, 
students, and consultants. A discount is also available on 
a “trade in” basis for users of competing systems. Call for 
information. i 
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have several nits to pick | tent. This fault is minor, 

ProDOS and one severe deficiency | however, in comparison to 
Dear DDJ, to point out. the inability of the code 
I have been receiving DDJ In first stage processing, a | (e.g., lines 361—378) to copy 






sparse files accurately. Be- 
fore describing a solution 
to the problem, I shall 
briefly explain this generic 
file entity. 

A sparse file contains dis- 
continuous data (i.e., holes 
exist in the file). The num- 
ber of data bytes that po- 
tentially can be read from 
the file exceeds the num- 
ber of data bytes actually 
stored within the file. A 
random access text file 
(RATF) is the prototypical 
sparse file. Not all RATFs are 
sparse, but the potential ex- 
ists. For example, consider 
a RATF with a record length 
of 512 bytes. One physical 
ProDOs block holds one file 
record. When you first 
open (i.e., create) the file, it 
has a length of 0 and is con- 
tained on one block. If next 
you write 10 bytes of data 
to Record 200, the file 
length becomes 102,410 
bytes (i.e., 10 + [512 X 200)) 
but the file occupies only 
three blocks. If all of the 
prior records held data, the 
file would require 202 
blocks. Thus, the file is 
sparse. This economy of 
space is made possible by 
index blocks which keep 
track of but do not allocate 
space for dataless records. 
Under ProDOs the most ex- 
treme example of this phe- 
nomenon is a file whose 
length is 16 megabytes and 
whose physical size is only 
5 blocks. That’s sparse! 

When Shawn Day’s code 
reproduces a sparse file, it 
assigns physical blocks to 
actual and potential data 
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Dear DDJ, 
I noticed an apparent error 
in the listing of fgrep.c in 
DDJ, September 1985. The 
fifth line on page 63 should 
read stoupper(str); not - 
stoupper(buffer);. This 
would keep the —y flag 
from working unless a 
string file was used. 
Michael J. Eager 
481 Century Dr. 
Campbell, CA 95008 































Dear DDJ, 
I got a red Dr. Dobb’s T- 
shirt at the Journal’s CP/M 
82 (or was it 81?) booth. 
Now, alas, I need another 
piece of apparel to go with 
it! a black armband with 
the words “‘Bring Back 
Cortesi.”’ 

The old guard keeps 
changing at Dr. Dobb’s. 
Nostalgia for the chip- 
smoking-hackers’ glorious 
Portola Valley tabloid can’t 
mask the fact that times 
are a changing out here for 
your readers too. No one 
cares anymore whether 
we can redirect PUN: to a 
solder-on UART. They care 
whether the shirt is white. 
Thank Peter Norton they 
don’t care whether the col- 
lar is buttoned! 

Losing Cortesi is anoth- 
er matter. He was current. 
He was relevant. He was 
beautifully articulate. And 
though I'd rather give up 
night skiing than Turbo 
Pascal, he was most often 
right. 

Good luck, Dave, pursu- 
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Multiuser, Multitasking 


Mainframe Performance 
from your PC, XT or AT... 


..» With WENDIN’® 
Operating Systems 
and Software 
Development Tools. 





PCUNIX™ only *99°° 























PCUNIX™ is a true multitasking, multiuser operating 
system similar to the popular UNIX® operating system for 
AT&T, selling for thousands of dollars more. It includes 
nearly 50 utilities, designed to make your program 
development a snap. 

PCUNIX™ runs most MS-DOS and PC-DOS programs, so 
that you'll never have to buy another set of development 
tools! You can use existing compilers, linkers and editors. 
Programs run under PCUNIX™ can use MS-DOS system 
calls plus over 70 enhanced system services found in our 
Operating System Toolbox™ You get 4 DSDD disks jam 
packed with the source code to the shell and all utilities 
hand crafted in Microsoft “C”. 

The source code to the Kernel comes with Operating 
System Toolbox™ sold separately. 





PCVMS™ only *9900 


PCVMS™ is Wendin’s version of the popular VAX/VMS 
Operating system, which was developed by Digital 
Equipment Corporation for their line of VAX computers. 
PCVMS™ turns your IBM-PC, XT, AT or true compatible into 
a supercharged, multitasking, multiuser workstation that 
runs MS-DOS and PC-DOS programs. Programs run under 
PCVMS™ can use MS-DOS system calls plus over 70 
enhanced system services found in our Operating System 
Toolbox™ 

PCVMS™ comes with full source code to the PCVMS™ 
shell and its utilities, hand crafted in “C”, and supports up 
to 3 users using additional serial terminals. 

The source code to the Kernel comes with Operating 
System Toolbox, sold separately. 
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XTC® is the world’s first multitasking editor for the IBM- 
PC. It also runs on IBM-XT and IBM-AT computers, as well 
as true compatibles. Designed BY programmers FOR 
programmers, XTC is the ultimate editing tool for software 
developers using C, PASCAL, ASSEMBLY, BASIC, 
FORTRAN, and other languages. 

Why is XTC® the ultimate tool for editing in YOUR 
development environment? Because it has powerful 
features like MULTITASKING MACROS, WINDOWS, TEXT 
BUFFERS, UNTO N TIMES, MACRO PROGRAMMING 
CONTROL STRUCTURES and VARIABLES, as well as 
blinding speed that leaves other editors in the stone age. 


XTC® comes with full source code written in Microsoft 
Pascal, on 3 DSDD disks. 








Foreign orders inquire about shipping. 
Domestic orders add $3.50/1st item, $1.00 each additional 
item for shipping, handling and insurance. 







Washington residents add 7.8% sales tax. 














® 








CHENEY, WA 99004 


The people who make quality 
software tools affordable. 
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Unix is a trademark of AT&T 
VAX/VMS is a trademark of Digital Equipment Corporation 


Wendin and XTC are Registered Trademarks of Wendin, inc. 
PCVMS, PCUNIX, and Operating System Toolbox are Trademarks of Wendin, Inc. 


Circle no. 112 on reader service card. 
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blocks alike. Using my first 
example, his copy com- 
mand would produce a file 
with 202 blocks instead of 3 
blocks. That is not accept- 
able, especially since RATFs 
almost cry out to be copied 
to a RAM disk. What to do? 

The principles involved 
in correcting the flaw are 
not difficult. When a file is 
opened, the buffer re- 
served for that file is 1024 
bytes long. The lower half 
holds an image of the most 
recent data block being 
read or written. The upper 
half contains an image of 
the index block for the cur- 
rent 128K of file content. 
By reading the source file 
in one-block increments, 
checking whether data ex- 
ists by testing the corre- 
sponding index bytes (e.g., 
zero means no data; non- 
zero indicates data), and 
writing to the target file 
only if data is found, the 
sparse file can be faithfully 
duplicated. File position 
must be monitored during 
the process so that data is 
written to the correct loca- 
tion within the target file. 
The SET_MARK and GET 
_MARK commands are ide- 
al for this purpose. Admit- 
tedly, block-by-block trans- 
fer of file contents is slow- 
er than bulk movement, 
but the difference in speed 
is surprisingly small for 
files of 64K or less, and ac- 
curacy is the sine qua non 
for a file copy program. 

If any reader would like 
an annotated listing of this 
process, I shall be happy to 
provide one for the price 
of a SASE. 

Let's hear it for the 6502! 

Sandy Mossberg 

50 Talcott Rd. 

Rye Brook, NY 10573 


Bose-Nelson Sort 
Dear DDJ, 


Mr. Celko’s article on the 


Bose-Nelson sort (DDJ, Sep- 
tember 1985) was very in- 
teresting and thought-pro- 
voking, particularly his 
comments on stable versus 
nonstable sorts. As an ad- 
dendum to his article, I 
wish to offer the following 
remarks: 

1. I was unable to get the 
recursive program (Listing 
One) to work. There ap- 
pear to be at least two 
problems. First, in the pro- 
cedure bosesort, the test 
if{(n>1) is incorrect since n 
has not been declared. I 
suspect that this test should 
be if (j>1). Second, the ex- 
pression for m simplifies to 
m=j/2. This cannot be cor- 
rect since the result is an 
endless sequence of recur- 
sive calls bosesort( 2, 2 ). 
Since the notation used in 
Listing One is different 
from the notation used in 
the algorithm statement 
(an unfortunate choice!) I 
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cannot deduce how m 
should be calculated. 

2. As printed, Listing 
Two is also incorrect. In 
case 2 of procedure bose- 
sort, the first call to push3 
should instead be a call to 
push5. Also, in case 3, x is 
defined twice. The second 
definition should be y = 
stack[top-4];. 

3. To compare the recur- 
sive and nonrecursive 
methods, I wrote the pro- 
gram shown in my Listing 
One, page 54, (borrowing 
heavily from Mr. Celko’s 
Listing Two!). Note that my 
method of retrieving com- 
mand line arguments is ap- 
plicable to Small-C. 

4. For some reason, the 
sequence of swaps gener- 
ated by the recursive pro- 
gram is the reverse of the 
sequence produced by the 
nonrecursive version. 

5. A brief comparison of 
the recursive version (my 


Theory B-N 
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me.hCUSTG 
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n*log2(n) 
118 93 
125 99 
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— 138 
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Table 1: Comparison of Bose-Nelson Sort with Theoreti- 
cal Minimum 
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Listing One) with the non- 
recursive version (his List- 
ing Two) is shown in Table 
2, below. Execution times 
have been corrected for 
loading time. Also, the 
timed programs did not 
print out the swap pairs. 

6. The B-N algorithm 
generates 32,708 pairs for a 
list of 664 items. Therefore, 
if you must sort more than 
this many items, you must 
either use an unsigned in- 
teger for the variable 
count, or you must use a 
longer integer. 

7. Table 1, below, com- 
pares the B-N sort with the 
theoretical minimum and 
with nlog2(n) for values of 
n up to 40. A few points 
should be noted. First, the 
B-N sort efficiency drops 
off fairly steadily as n in- 
creases. For n= 100, the B-N 
algorithm generates al- 
most three times the mini- 
mum number of swap 
pairs. However, the rela- 
tionship is not smooth. For 
example, increasing from 
95 to 96 items requires 7 ad- 
ditional swaps. Increasing 
to 97 items requires 64 ad- 
ditional swaps, and in- 
creasing to 98 items re- 
quires 32 additional swaps. 

8. I have not had a 
chance to test the B-N strat- 
egy against the more popu- 
lar sorting algorithms. Ob- 
viously, a B-N sort will take 
less time to sort a sorted or 
nearly sorted list (fewer 
swaps are required) than a 
random list. However, if 
we compare the number 
of swap pairs generated by 
the B-N algorithm with 
n*log2(n), as shown in Ta- 
ble 1, it appears that for 
large values of n (say, 15 or 
higher) a Bose-Nelson sort 
may not be able to com- 
pete with a properly se- 
lected conventional sort. 

Richard J. Wissbaum 

15553 E. Wyoming Dr. - H 

Aurora, CO 80012 
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Now the biggest name 
in C compilers comes in a size 
everybody can afford. 
Let's C: 
$75 


Introducing Mark Williams’ $75 C compiler. Want to explore C programming for the first time? Or just 
on your own time? Now you can do it in a big way without spending that way. With Let’ C. 

This is no little beginner’s model. Let’s C is a powerful programming tool, packed with all the 
essentials of the famous Mark Williams C Programming System. The one chosen by Intel, DEC, Wang 
and thousands of professional programmers. The one that wins the 





Mark Williams Let’s C . . 
Pac was BMG and benchmarks and the reviewers praise: 
MS-DOS “(This compiler) has the most professional feel of any package we tested...” —BYTE 
. Sige tatbies plus “Of all the compilers reviewed, (it) would be my first choice for product 
e Full Kernighan & Ritchie C development.” —David W. Smith, PC WORLD 
: <p ae sce And now for more big news. Get our revolutionary csd C Source 
compatibili ‘ 
and complete libraries : Debugger for just $75, too. 
© Small memory model Use this coupon or charge by calling toll-free: = You can breeze through 
e Many owerful utilities 1-800-MWC-1700. In Ill. call 312- 72-6659. d b ° at th C 
including linker, c ugeing ec source 
assembler, archiver, cc ORDER NOW! 60-DAY MONEY BACK GUARANTEE! level ignoring clunky 
one-step compiling, egrep, assembler code 


Mark Williams Let’s C 


pt, tail, we 


Affordable, powerful, 
debuggable. Mark Williams 


® MicroEMACS full screen 
editor with source 


Please send me: 
copies of Lets C and _____ copies of csd (C Source Debugger ) 




















I 
| : 
© Supported by dozens of at $75 each. (Ill. residents add 7% sales tax.) | 
third party ibraries | [] Check []Money Order [_] Visa, MasterCard or | Let’ C is the big name C 
© Upgradeable to C | American Express | compiler at a price you can 
Programming System for | dle. Get Soeuis 
large scale applications | Name \ handle. your on 
development | itnow. 
Let’s C Benchmark Done on Address | 
an IBM-PC/XT, no 8087. | | 
Program: Floating Point | City State Zip Mark 
from BYTE, August, 1983. i ! Williams 
Exec Time in Seconds Lae * =i | Company 
Let's C re Be | geanthiess Weclanicl 
MS 3.0 347.45 co ee ee Se ee ee | Chicago, Illinois 60614 


© 1985 Mark Williams UNIX is a trademark of Bell Labs. Circle no. 102 on reader service card. 
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VIEWPOINT 


Shrink- 
wrapped 
Big Macs? 


I read with great interest 
the editorial in the Decem- 
ber 1985 DDJ concerning 
the recent spate of litiga- 
tion in the software indus- 
try. I share the concern ex- 
pressed regarding current 
trends in software protec- 
tion and in particular with 
how many software pub- 
lishers are claiming both 
copyright and trade secret 
protection for software 
packages that are widely 
distributed. 

As an attorney specializ- 
ing in patent, trademark, 
copyright, and other intel- 
lectual property law, I 
have always believed that 
patents should protect un- 
derlying ideas, and copy- 
rights should protect the 
expression of ideas. The 
United States Supreme 
Court has clearly shown 
that a patentable invention 
exists even when the actu- 
al improvement exists sole- 
ly in software. Conse- 
quently, if a programmer 
develops a software pack- 
age that performs new and 
useful functions then the 
idea underlying the soft- 
ware may be patentable. 

On the other hand, 
Copyright Statute 17 USC, 
(Section 101, et seq) specifi- 
cally provides that copy- 
right protection for an 


Alfred A. Fressola 


Alfred A. Fressola is a part- 
ner in the Law Offices of 
Mattern, Ware, Stoltz, & 
Fressola P.C., 34 Sherman 
Ct., P.O. Box 783, Fairfield, 
CT 06430. He is also a mem- 
ber of the Computer Law 
Section of The Connecticut 
Bar Association. 
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original work of author- 
ship does not protect “any 
idea, procedure, process, 
system, method of opera- 
tion, concept, principle, or 
discovery, regardless of 
the form in which it is de- 
scribed, explained, illus- 


trated, or embodied in. 


such work.’ 

The National Commis- 
sion on New Technological 
Uses of Copyrighted Works 
(CONTU), empowered by 
Congress to review copy- 
right legislation, concluded 
that copyright protection 
should be afforded to com- 
puter programs and data- 
bases. It proposed changes 
in the copyright statute, in- 
cluding a provision stating 
that it would not be an in- 
fringement for a rightful 
possessor of a copy of a 
computer program either 
to use the program in con- 
junction with a machine or 
to make archival copies. 

It is interesting that this 
section (Section 117) as en- 
acted does not use the lan- 
guage ‘rightful possessor”’ 
but rather uses ‘‘owner of 
a copy. Although I have 
not been able to find any 
legislative history concern- 
ing the change, it is clear to 
me that the party or par- 
ties who caused _ this 
change were mindful that 
the owner of a copyright- 
ed work may license the 
use of a copy of the copy- 
righted work as distin- 
guished from selling a 
copy of the work. There- 
fore, if one could argue 
that what would normally 
be considered a sale of a 
copy was instead a license 
to use a copy then all bets 
would be off with respect 
to the aforementioned sec- 
tion and to Section 109(a) of 
the copyright law. Section 
109(a) states that the owner 
of a particular copy is enti- 
tled, without the authority 


of the copyright owner, to 
sell or otherwise dispose of 
the possession of that copy. 

Although a license can 
certainly be entered into 
between two parties, it re- 
quires more than the open- 
ing of a package to show ac- 
ceptance of terms of the 
license; it is also outside the 
intention of CONTU that 
trade secrets be preserved 
by licensing copies where- 
in hundreds or thousands 
of licenses are made in 
such a manner. The soft- 
ware subcommittee report 
from CONTU states that it is 
self-evident that trade se- 
crecy cannot be relied 
upon if a program is wide- 
ly marketed or otherwise 
broadly distributed. 

Some software publish- 
ers have been trying to 
have their cake and eat it 
too. They claim to have 
copyright protection and 
are only granting licenses 
to use copies of the copy- 
righted work, such licenses 
being accepted by the user 
opening a package. By their 
reasoning, virtually any 
item, not just software, 
could be packaged in a 
shrink-wrap form contain- 
ing a ‘‘license”’ limiting all 
warranties, liabilities, and 
even ownership of the 
item! Certainly that was not 
the intention of CONTU and 
was an oversight by Con- 
gress when the phrase 
“rightful possessor’ was 
changed to ‘“‘owner of a 
Copy.” 

I am in the process of in- 
vestigating this matter fur- 
ther and may recommend 
that legislation be intro- 
duced to amend Section 
117 of the Copyright Stat- 
ute. A change in the statute 
is the proper avenue to 
clarify the right of the pur- 
chaser of a computer pro- 
gram to make archival 
copies and to analyze the 


program. If the publisher 
wishes to protect underly- 
ing inventive ideas it 
should seek such protec- 
tion by way of the patent 
statutes, which provide 
protection for a 17-year 
term in exchange for full 
disclosure of the invention. 
I would appreciate com- 
ments and thoughts be- 
cause any change should 
be supported by all inter- 
ested parties seeking to 
have fair protection af- 
forded the authors of com- 
puter programs. 


Dr. Dobb’s Journal, March 1986 
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NEW RELEASE 


Ecosoft’s Eco-C88 Rel. 3.0 C Compiler 


Release 3.0 has new features at an unbelievably low price. ECO-C88 now has: 
@ Prototyping (the new type-checking enhancement) 


@ enum and void data types 

@ structure passing and assignment 

@ All operators and data types (except bit fields) 

@ A standard library with more than 200 functions (many of which are System V 
compatible for greater code portability) 

@ cc and mini-make that all but automates the compile process 

@ 8087 support (we sense the 8087 at runtime — no dual libraries) 

@ ASM or OBJ output for use with MSDOS linker 

@ Tiered error messages — enable-disable lint-like error checking 

@ Fast compiles and executing code 

@ Expanded user’s manual 

@ Enhanced CED program editor (limited time offer) 








We also offer the following support products for Eco-C88. 


CED Program Editor $ 2995 


CED now supports on-line function help. 

If you’ve forgotten how to use a standard library function, just type 
in the name of the function and CED gives you a brief summary, 
including function arguments. CED is a full screen editor with 
auto-flagging of source code errors, multiple windows, macros, and 
is fully configurable to suit your needs. You can edit, compile, link, 
and execute DOS commands from within the editor. Perfect for use 
with Eco-C88. For IBM PC, AT and look alikes. 


C Source for Standard Library §$ 10 


Contains all of the source code for the library 

functions that are distributed with Eco-C88, ex- ($20 if not 
cluding the transcendentals and functions written with order) 
in assembler. 


Developer’s Library $ 2 5 


Contains the source code for all library functions, 

including the transcendentals and those written in ($50 if not 
assembler. Perfect for the developer that wish to with order) 
write their own custom functions or learn how 

we implemented the Eco-C88 library. 


ISAM Library $ 15 


Contains the code from the C Programmer’s 
Library in relocatable format (1.e., .OBJ) includ- ($30 if not 
ing the delete code for the ISAM file handler. with order) 


Eco-C88 C compiler requires an IBM PC, XT, or 
AT (or compatible) with 256K of memory, 2 
disk drives and MSDOS 2.1 or later. Call today: 
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C Programming Guide $ 2 () 


After reading the Ist edition, 
Jerry Pournelle (BYTE Magazine) said: “I recom- 
mend this book... Read it before trying to tackle 


|= Kernighan and Ritchie.” The second editon ex- 
; © pands this best seller and walks you through the C 
; language in an easy-to-understand manner. Many 


of the error messages include references to this 
book making it a perfect companion to Eco-C88 
for those just starting out with C. 


C Self-Study Guide § 17 


(Purdum, Que Corp.). Designed 

for those learning C on their own. The book is filled 
with questions-answers designed to illustrate many 
of the tips, traps, and techniques of the C language. 
Although written to complement the Guide, it may 
be used with any introductory text on C. 


C Programmer’s $90 


Library 

(Purdum, Leslie, Stegemoller, Que Corp.). This 
best seller is an intermediate text designed to teach 
you how to write library functions in a generalized 
fashion. The book covers many advanced C topics 
and contains many useful additions to your library 
including a complete ISAM file handler. 
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The Last of the Shell Support Routines 


he code this month is the last of 

the shell support routines. A 
few subroutines are useful enough as 
stand-alone library routines to men- 
tion here, but for the most part I'll let 
the code speak for itself. 

Ssort( ) (Listing Ten, page 70) is an- 
other general-purpose sort routine 
modeled after the Unix gsort( ) rou- 
tine (See C Chest, April 1985). The 
April column implemented the rou- 
tine as a Quicksort, whereas this ver- 
sion uses an adaptation of the Shell 
Sort in K & R. For many applications 
(especially those with only a small 
amount of data to sort or those 
where the data has already been 
sorted) a Shell Sort is a better way to 
go than a Quicksort. It uses much less 
code, and for small N, it’s about as ef- 
ficient as Quicksort. Like gsort( ), 
ssort( ) is passed four arguments— 
the base address of the array to be 
sorted (base), the number of elements 
in the array (nel), the width of one 
element in bytes (width), and a point- 
er to a comparison function that is 
passed pointers to two elements in 
the array and should otherwise 
work like strcmp( ) does. You can 
find more details on how to use this 
routine and on how a shell sort 
works in the April C Chest. 

Reargv( ) (Listing Nine, page 68) is 
not so much part of the shell itself as 
a routine for other programs that are 
being run under the shell. It’s passed 
pointers to argv and argc, and it re- 
places these with another version 
created from the CMDLINE environ- 
ment variable generated by the shell 
when a command is executed. The 
shell’s complete (up to 2,048-byte) 
command line is passed to a program 
using this mechanism, because you 





by Allen Holub 





can pass only 127 characters via DOS. 
Reargv( ) should be called before 
argv or argc are used in main( ). Note 
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that the program name is available as 
argv[0) if you use reargv( ). This is 
not the case in DOS Versions 1 or 2. 

If possible, you should incorporate 
the code from reargv( ) directly into 
your root module (where it belongs). 
It’s provided here as a separate func- 
tion because the Microsoft compiler 
doesn’t give you the root module 
sources, so you have no choice but to 
call an independent subroutine. 

Dir( ) (Listings Seven and Eight, 
pages 56 and 57) is a modified version 
of the directory routines that were 
part of the /s directory utility given 
in the July C Chest. Dir is passed a 
pointer to an initialized structure 
(called a DIRECTORY) containing vari- 
ous commands. It gets a directory 
and puts it into an argv-like array of 
pointers to strings, part of this struc- 
ture. Mk_dir( ) creates a DIRECTORY 
structure. You set various flags in the 
structure to tell dir( ) what to do and 
then call it with a file specification 
and a pointer to the initialized DIREC- 
TORY as its arguments. When the sub- 
routine returns, various fields of the 
DIRECTORY will have been updated to 
hold the proper file or subdirectory 
names as well as other information 
such as file sizes and a volume label. 
The returned directory is sorted for 
you (using ssort( )). The routine del 
—_dir( ) deletes a DIRECTORY structure. 
Dir.h (Listing Seven) has details about 
how to initialize the DIRECTORY and 
how dir( ) modifies it. If you want to 
see an example of how dir’ ) is used, 
look in the shell on lines 478—566 of 
Listing One (January 1986). Refer to 
the July C Chest for details about get- 
ting directories from DOS in general. 

Dir works in slightly different 


ways from the Is described in July. 
The major difference is the total file 
size. If you specify a long format list- 
ing, the file size in bytes is still listed 
as part of the dirv entry. This size is 
the number of actual characters in 
the file. The total byte count, howev- 
er, reflects the number of bytes actu- 
ally occupied by the file on the disk. 
In DOS the minimum number of 
bytes allocated to a file is a ‘‘cluster,”’ 
which is a contiguous group of disk 
sectors. On the PC/AT hard disk, a 
cluster requires 2K (four 512-byte sec- 
tors); 2K are required to store a file, 
even if that file contains only one 
character. The totals returned by 
dir( ) will reflect the file sizes, round- 
ed up to the cluster size for your par- 
ticular disk. (It varies from disk type 
to disk type—1K clusters are used on 
a 354K double-sided floppy.) 


Lvalues 

A few months back I mentioned a 
problem I was having with the Lat- 
tice C compiler. In particular, I want- 
ed to be able to say: 


long =x; 
int "pi 


x=" (long Sp.)-F 4S 


in order to be able to fetch a long-size 
object pointed to by p and then incre- 
ment p as if it were a pointer to long. 
Lattice kicks this code out with an 
‘‘Ivalue required” error message. 
The code: 


long X; 
hae = *p: 
x = * long *)p; 


p += sizeof( long ); 


is accepted by Lattice. I think the first 
expression ought to compile, and in 
support of my contention, several 
compilers do indeed accept the state- 
ment and generate the correct code: 
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CG CHEST 
(Continued from page 14) 


Microsoft C (Version 3.0), Aztec C 


(Version 3.20d), and Whitesmith’s C 
for the 68000 are three of these. Jim 
Howell writes that the Introl C com- 
piler for the 6809 also generates cor- 
rect code. Jim also mentions that the 
C-systems C compiler outputs gar- 
bage but doesn't report an error. 
Several people have written about 
this problem, most of them advanc- 
ing the argument that the Lattice C 
compiler is behaving rationally. In 
order to understand the problem bet- 
ter, we should start by defining /va- 


lue. K & R say: “‘An object is a manip- | 


ulatable region of storage; an /value is 
an expression referring to an object. 
An obvious example of an lvalue is 
an identifier. There are operators 
that yield lvalues: for example if E is 
an expression of pointer type, then 
*E is an lvalue expression referring to 
the object to which E points. The 


name ‘lvalue’ comes from the assign- | 
ment expression E1=E2 in which | 


the left operand E1 must be an Ivalue 
expression. '’! 

So, an [value is the place where the 
results of an expression evaluation are 
stored. As J.S. Williams writes, howev- 
er, an ‘“‘/value is not just an expression 
on the left-hand side of an 
assignment statement. A better inter- 
pretation is that the /value of an ex- 
pression is the symbolic location of the 


value of the expression.” That is, it’s an 


address into which the result of the ex- 
pression evaluation will be put. An 
Ivalue has to be a real place—a vari- 
able that’s been declared somewhere 
or the place pointed to by a pointer. 
Several people mention a comple- 
mentary concept to an /value—an 
rvalue. An rvalue represents the val- 
ue of an /value. That is, if an value is 
the address into which we'll put the 
result of an expression, an rvalue is 
the result itself—the number that 
will be put into the /value. Consulting 
the grammar in Appendix A of K & R 
(pages 214— 219), there’s no nonter- 
minal symbol called an rvalue. That 
is, the concept of rvalue can be used 
to describe several nonterminal sym- 
bols in the grammar, whereas an Iva- 


lue is actually a nonterminal. Thus, ’) 


talking about rvalues might help us 
to understand the problem concep- 
tually, but the rvalue is not bolted 











into the language as is the /value. 

Nevertheless, an rvalue is a useful 
concept. The creation of an rvalue 
may involve memory allocation over 
which you have no control. Compil- 
ers sometimes put intermediate re- 
sults of an expression evaluation into 
scratch variables (or registers) that 
they allocate transparently to your 
program. Thus, an rvalue may be as- 
sociated with an “anonymous tem- 
porary” variable that you cannot ac- 
cess directly. 

Wayne Throop writes, “A cast is 
defined in K & R (page 42) like this: 
‘In the construction “(type-name) ex- 
pression,’’ the expression is convert- 
ed to the named type by the conver- 
sion rules above. The _ precise 
meaning of a cast is in fact as if the 
expression were assigned to a vari- 
able of the specified type, which is 
then used in place of the whole con- 
struction.’ Now, this paragraph can 
possibly be interpreted to mean that 
a cast must be an /value. Most compil- 
ers, however, do not so implement it. 
The key is in the ‘converted to the 
named type’ phrase. A cast (poten- 
tially) changes the bits of the cast ex- 
pression. Anonymous temporaries 
are normally not treated as /values 
because things assigned to them can 
never be retrieved later.”’ 

In other words, a cast generates an 
rvalue, and as a result of evaluating 
the cast, the number might be copied 
into a scratch variable in order to 
ease any necessary arithmetic ma- 
nipulation associated with the type 
conversion (such as sign extension, 
truncation of high-order bits, and 
floating point to integer conversion). 
So, in 


x= *( (long *)p )++ ; 


the (long* )p may cause p to be copied 
to a temporary variable as part of the 
cast operation, and the ++ would 
increment the temporary variable, 
not p itself. 

The point about temporary vari- 
ables is well taken. Nevertheless, just 
because it’s easiest for the compiler to 


| always put a cast variable into an 


anonymous temporary, this behavior 
is not required by the language. More 
to the point, just because a variable 
might be copied somewhere else, 
there's no reason why the compiler 
can't copy it back when it has fin- 
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ished with it. In any event, p doesn’t 
have to be copied anywhere in the 
problem we're discussing. We don't 
need to modify it; long pointers and 
int pointers are the same physically. 
The difference lies in how the object 
pointed to is used, not in any dissimi- 
larities between the pointers them- 
selves. By the same token, if p isn’t 
copied to a temporary variable, 
there’s no reason why you can’t in- 
crement it, and several compilers will 
indeed let you increment a cast 
pointer. 

To my mind, the human being 
shouldn't have to do something (or 
not do something) for the conve- 
nience of the compiler; rather, the 
compiler should do its best to behave 
rationally, provided that the input is 
rational. A compiler that makes intel- 
ligent decisions about when to copy 
and when not to copy variables is a 
better compiler—there’s no point in 
copying objects that don’t need to be 
copied. Unfortunately, many compil- 
ers—and Lattice C seems to be one of 
these—don't operate intelligently. 

As a footnote, a more technically 
correct argument against increment- 
ing a cast variable is that there’s no 
obvious way to parse such an expres- 
sion using the formal grammar in 
the back of K & R. Because several 
compilers accept the construct, it’s 
obviously possible to write a gram- 
mar in which incrementing a cast 
variable is acceptable. More to the 
point, the grammar in K&R isn't 
used ‘‘as is’ in any C compiler that I 
know of. Everybody (including 
K & R) has modified it a little to make 
it more realistic when they write a 
real compiler. The grammar in my 
copy of the draft proposed ANSI stan- 
dard bears little relation to the one in 
K & R, so until the ANSI standard is 
formalized, I don't think the gram- 
matical argument is valid either. 

There is one argument that I do 
think is valid. As I’ve learned the hard 
way, X = *((long*)p)+ + is not porta- 
ble, at least it’s not portable to Lattice. 
On the other hand, x = *(long*)p; p 
+= sizeofl(long) is acceptable to all 
compilers. This second method is 
therefore preferable for portability 
reasons. 


Problems with The Microsoft 
C Compiler 


A few months ago Microsoft sent me 


Dr. Dobb’s Journal, March 1986 


a review copy of the new version 
(3.0) of its C compiler. I’ve been using 
it since then (to develop the shell I’ve 
been talking about since January, 
among other things). 

I really want to like this compiler. It 
generates compact code, and its im- 
plementation of the language is one 
of the best I’ve found (it supports enu- 
mrerated types and strong type check- 
ing a la the proposed ANSI standard). 
Moreover, its library documentation 
is organized quite nicely, with all the 
functions in alphabetical order in- 
stead of grouped by function (a prac- 
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..db_ VISTA 


db__VISTA is a full-featured program- 
mer’s DBMS. It handles your data power- 
fully, yet economically without the frills 
that make end-user DBMS’s bulky, slow 
and expensive to license. Use only the 
features you need for maximum 
efficiency with minimum code and 
effort. 


Powerful lineup of features. B-tree 
indexing, multiple key records, trans- 
action processing, interactive database 
access utility, and file transfer utilities 
for dBASE, R:base and ASCII files. You 
even get 90 days applications develop- 
ment support free of charge. 


Define your playbook up front. As a net- 
work model DBMS, db__ VISTA is suited 
to applications development. A premium 
is placed on efficient use cf disk 
storage, reduced data redundancy and 
fast access times allowing you to cross 
the goal line first. 


It’s your game plan. The database struc- 
ture is specified by you in db__VISTA’s 
data definition language (DDL). The DDL 
processor compiles the specification 
into tables (data dictionary) used by 
db__VISTA’s library functions, which are 
called by your C program to manipulate 
and access the database. 





tice I never could understand). You 
can find the documentation for any 
routine in the library quickly just by 
looking it up. There’s no need to con- 
sult a cross-reference, then an index , 
and then look it up. Microsoft has 
tried to minimize the number of 
functions described by a single entry 
(very little of the one-page-for-15-simi- 
lar-functions business), and every en- 
try has a See Also section and an Ex- 
amples section. I wish every 
compiler’s library documentation 
was organized as_ nicely as 
Microsoft's. 
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CoGHEST 
(Continued from page 17) 


The library is one of the more com- 
plete that I’ve seen, too, especially in 
the operating system support area. 
For example, it has both a getenv and 
a putenv routine so you can not only 
retrieve a variable from the current 
environment but you can add a vari- 
able to it as well. Putenv lets you pass 
variables to a spawned process pret- 
ty easily, without having to go 
through a temporary file. The com- 
piler also comes with a Unix-like ver- 


sion of the cc driver program. (It can 
compile and link your source code in 
one step.) 

Unfortunately, the compiler itself 
has several serious problems. Like 
most compilers, the Microsoft com- 
piler is actually several programs 
that are invoked in sequence by a 
controlling driver program. The var- 
ious programs communicate with 
each other via temporary files and 
the command line. The first things I 
tried to compile were the hyphen- 
ation routines from October's C Chest 
column, and the compiler wouldn't 
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Philippe Kahn to share 
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taking a good idea and 
turning it into rock-solid 
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Borland team do so 
much, so well, so fast? 
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Wall Street Journal chart 
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an ad?’ [Note: At that 
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software packages were 
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Kick was number four, 
and I let Atron quote me 
in saying that there 
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SideKick without 
Atron’s hardware- 
assisted debuggers. 
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ning has literally struck 
again. Turbo Lightning 
made number four on 
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do it. Pass 3 of the compiler kicked 
out an incomprehensible error mes- 
sage that referred toa line number in 
a temporary file that was erased by 
the driver program (or so I assume— 
the file was not to be found on the 
disk). So, I thought to myself, I'll just 
run the passes by hand instead of let- 
ting the supplied driver program do 
it for me. No good. The individual 
passes of the compiler are not docu- 
mented—anywhere. You can't run 
them yourself. More to the point, 
were I a naive user the situation 
would be more incomprehensible 
because the documentation doesn't 
explain that compilation involves the 
invocation of programs that you 
know nothing about. Anyway, I 
eventually fixed the problem by 
stripping the large arrays of initial- 
ized data out of the offending file and 
putting them into a second file. The 
compiler’s problem seems to have 
something to do with symbol table 
space overflow, but who knows? 

Another related problem—the 
compiler lets you use several environ- 
ment variables to pass it information. 
The INCLUDE environment, for exam- 
ple, can hold a list of places to look for 
#included files. It seems, however, 
that the driver program knows about 
these environments, but the other 
programs that make up the compiler 
do not. In particular, the driver pro- 
gram passes the contents of the IN- 
CLUDE environment to the subpro- 
grams using the DOS command line. 
The DOS command line is limited to 
127 bytes, so if the INCLUDE environ- 
ment has too many characters in it, 
the command line can be truncated 
and the invoked subprogram will spit 
out an incomprehensible error mes- 
sage. Again, this behavior is not docu- 
mented. You are not told to limit the 
length of the INCLUDE environment. 

The above problems are character- 
istic of a general nonchalance to- 
ward error processing on the part of 
Microsoft. The compiler’s normal er- 
ror processing, even when it’s work- 
ing properly, is among the worst I’ve 
ever seen. Its error messages are for 
the most part uninformative and er- 
ror recovery is nonexistent. For ex- 
ample, the message 


“Syntax error ’{’”’ 


was generated by a missing semico- 
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lon several lines above the one that 
was flagged in the error message. 
The compiler is showing you the 
symbol following the semicolon, the 
one that confused it. Because a miss- 
ing semicolon is perhaps the most 
common error in a C program, you'd 
think that Microsoft would at least 
handle this one carefully—but no. 
Semicolons weren't mentioned in 
any of the hundred spurious error 
messages that followed. (I’m not ex- 


aggerating the number of messages 
either, there really were a hundred 
of the things.) And then, to add insult 
to injury, the compiler aborted, tell- 
ing me that there were too many er- 
rors to continue processing even 
though the missing semicolon was 
the only real error in the file. 

This sort of behavior is repeated 
with disgusting regularity. A missing 
semicolon, colon, parenthesis, or 
curly bracket is a disaster. Misspell a 
keyword, and all is lost. Spurious er- 
ror messages are a serious problem 
in themselves, and they can't be 
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eliminated entirely, but a well-de- 
signed compiler ought to be able to 
recover from an error within a few 
statements and then go on process- 
ing. At the very least, it could skip to 
the next subroutine declaration and 
then start processing from there (you 
can do that with a regular expres- 
sion). As far as I can tell, though, the 
Microsoft compiler makes no at- 
tempt to recover. 

These goings-on dramatically slow 
a program's development time. In- 
stead of compiling, fixing five or ten 
errors, and then recompiling, I have 
to compile, fix only one error, com- 
pile again, fix one error, and so forth. 
I may have to recompile 10 or 15 
times to get all the errors fixed, a 
very time-consuming process to say 
the least. I don’t care how fast a com- 
piler is, if I have to recompile 15 
times to find 15 errors, I'll never fin- 
ish my program. 

Another real problem here is the 
error message not telling me what 
the error was. If I were not already a 
reasonably proficient C program- 
mer, I’d never have found some of 
my errors (which were sometimes 
several lines above the one flagged 
by the error message). If you don’t al- 
ready know C very well, the Micro- 
soft compiler is a waste of money. 
You'll get so disgusted with its behav- 
ior, youll never learn the language 
well enough to debug any but the 
simplest program. 

Another problem is that the docu- 
mentation doesn’t mention various 
important differences between the 
way a Microsoft library routine 
works and the way that the equiva- 
lent Unix routine works. The most 
serious of these problems that I’ve 
found so far is in the spawn function. 
It turns out that files opened by a par- 
ent process are closed when the 
child process terminates! (And I don’t 
use the ! lightly.) It seems OK for a 
child to inherit copies of the parent's 
file descriptors (which is document- 


ed), but the child shouldn't be able to 


| modify them, much less close them. 
| Even worse, it is an exit( ) call in the 


child that does the closing, not an ex- 


_ plicit call to close( ). In other words, 


there is no way for a file to stay open 
after a child is spawned. Maybe this 
isn't a problem with the spawn func- 
tion at all, maybe it’s a bug in MS DOS. 
In any event, bug or not, this aber- 
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rant behavior should be document- 
ed. There isn’t a word about it in the 
manual, and it took me half a day to 
track it down. 

There are a few other inconsisten- 
cies (such as sitrncpy pads out the 
string with nulls to the maximum 
count—why?), but I won’t go into all 
of them here. The compiler also has 
several, more minor problems—for 
example, it ignores the last line of a 
file if it isn’t terminated with a new 
line. An endif without a CR gives an 
“unexpected end of file’ message. 
The library function fgets( ) doesn’t 
have this bug in it—why does the 
compiler? 

Though the library documentation 
is nicely done, the User’s Guide is aw- 
ful. It has very little discussion of un- 
familiar, Microsoft-specific parts of 
the language. This lack of detail is 
made more intolerable because the 
User’s Guide spends thousands of 
words talking about topics with 
which most readers will be familiar. 
For example, on page 25 it says: “‘It is 
recommended that you create a sep- 
arate directory for each type of 
file....(Refer to your MS-DOS docu- 
mentation if you are unfamiliar with 
the procedures for setting up and 
maintaining directories).’’ Does Mi- 
crosoft seriously believe that a C pro- 
grammer doesn’t know how to set 
up a directory? Another example is 
on page 36 where we find a long 
treatise on how to create a batch file: 
“You can create an MS-DOS batch file 
to set up the compiler environment 
and invoke the compiler. Creating 
and using batch files is discussed in 
full in your MS-DOS manual. This sec- 
tion is intended simply to demon- 
strate possible uses of the MSC com- 
mand in a batch file...’ and on, and 
on, and on. The manual talks about 
how to use batch files for the rest of 
the page and most of the next. Most 
readers don’t need to be told what a 
batch file is ad nauseam; those who 
don’t know can find the material in 
the DOS manual. In fact, the User’s 
Guide could be shortened by about 50 
percent if it started out with the sen- 
tence: ‘““This manual assumes that 
you are familiar with MS DOS. If you 
are not, please read your MS DOS doc- 
umentation before proceeding. 
Why make readers wade through 
pages of useless verbiage to find the 
few buried pieces of real informa- 
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tion and then not provide them with 
adequate information when a new 
topic is introduced? : 

Worse than this garbage is the lack 
of real information on many obscure 
or hard-to-understand parts of the 
Microsoft C implementation. The 
keyword far, for example, is used to 
create a 32-bit pointer in a small mod- 
el program; but the user’s manual 
gives you almost no information, and 
no examples whatsoever, on how 
this keyword should be used. I tried 
for about half an hour to declare a 
typedef for a far pointer to an un- 
signed object before I hit on the right 
combination of keywords. The man- 
ual was no help and neither were 
the error messages, most of which 
said “‘syntax error’ and little else. I 
don't mind Microsoft's introducing a 
new keyword, especially one as use- 
ful as this one, but it should be docu- 
mented up the wazoo. It is not. 

One final problem and then I'll 
quit. It’s impossible (or rather, so 
hard that I don’t want to bother) to 
make either ROMable code or .COM 
files with the Microsoft compiler. In 
the course of my normal consulting 
work, I have to write a lot of ROMable 
code. To do this with most compilers, 
you need a copy of the C root module 
so that you can modify it to do your 
system initializations. You also need 
a special root module if you want to 
make .COM files. Lattice and Aztec 
both provide the root module source 
with their compilers. Microsoft does 
not. When I called Microsoft to ask 
about getting a copy, the staff were 
pretty reluctant even to talk about it. 
Finally I managed to talk to Sandra 
Jacobson, the VP in charge of C prod- 
uct marketing, and she told me that 
the root source was available but that 
it cost $500 (that’s five hundred—two 
zeros after the five). This left me 
speechless for a moment—$500 is 
more than the compiler costs. For 
$500 Manx gives you two compilers 
(one optimizing, the other not); the 
complete source code for the entire 
I/O library, not just the root module; 
copies of several Unix utilities (grep, 
ls, make, diff, and a version of the vi 
editor); an assembler; a linker; and 
several other utilities. Where does 
Microsoft get off asking $500 for 100 
lines of code, without which their 
compiler is useless to anyone who 
has to put a program into ROM? The 
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only response I got was that not 
many of its customers require it. 
Well, I require it. The company 
wasn't sympathetic. Then it said that 
another reason for not releasing the 
root module is that it didn't want to 
provide user support for it—the 
module was ‘‘too complex”’ and Mi- 
crosoft ‘‘“wasn’t too proud of the way 
that the program looked.’ To 





my mind, this doesn’t speak well for 
the quality of Microsoft's program- 
ming or of its support. If Microsoft 
can’t explain the internal workings 
of its own compiler, who can? It 
seems that it’ll only provide support 
if your question isn't too hard. To all 
appearances Microsoft has gone the 
way of several large corporations: 
“We don’t care, we don't have to.”’ 

In conclusion, the Microsoft C com- 
piler is a good implementation of the 
C language, with a very complete I/O 
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library and laudable library docu- 
mentation. It generates compact code 
and is easy to use (once you wade 
through the User’s Guide). As far as I 
can tell, the code it produces is error- 
free. Because of serious flaws in the 
error recovery mechanism, however, 
an extremely poorly written User's 
Guide, and a certain reticence on Mi- 
crosoft’s part to really support its own 
product, the compiler is useless to 
anyone who is not already a very ex- 
perienced C programmer and to any- 


' one who has to generate ROMable 


code or do serious systems program- 


| ming. Though the library documenta- 


tion is well organized, it is opaque, 
not telling you anything about the in- 
ternal workings of the routines. 
There’s no way (short of disassem- 
bling the library) to make ROMable 
code or .COM files with the Microsoft 
compiler. Even if youre an experi- 
enced programmer, I’m not sure 
you'd be willing to put up with the 
awful error recovery, which is bound 
to slow up your development time, or 
spend inordinate amounts of time | 
trying to figure out how a library rou- 


| tine works and what undocumented 


bugs it contains. 

As I write this, a copy of the Manx 
Aztec C 86 compiler has just arrived 
in the mail and a copy of Lattice, Ver- 
sion 3, is on the way. I'll report back 
sometime in the next few months, af- 
ter I've had a chance to use them for a 
while. 


Shell Availability 

This column is part of a four-part se- 
ries describing the entire shell. A re- 
print of all four parts along with a 
disk containing the listings and an ex- 
ecutable version of the shell are 
available for $29.95 from Dr. Dobb’s 
Journal, 2464 Embarcadero Way, 
Palo Alto, CA 94303. Please see the ad- 
vertisement on page 71. 


Note 
1. Kernighan & Ritchie, The C Pro- 
gramming Language (Englewood 


| Cliffs, N.J.: Prentice-Hall, 1978), 183. 
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ARTICLES 


A Variable 
Metric Wilinimizer 


by Joe Marasco 


his article de- 
: scribes a_ vari- 
able metric 


minimizer, a program 
that finds the set of pa- 
rameters to a function 
that will produce the 
smallest output vaiue 
from that function. 
Minimization is a com- 
mon problem in many 
fields. A familiar exam- 
ple of this process is the least squares fitting of a set of data 
to a straight line. Here, an explicit set of equations is used 
to derive the optimal value for the slope and the intercept 
of a straight line that approximates the input data. (The 
minimized function is the sum of the squares of the devi- 
ations of the data points from the straight line.) That is, 
least squares fitting finds the equation of the line that goes 
as closely as possible through the middle of a set of data 
points. Of course these points have to be linelike to begin 
with; forcing randomly scattered data into a line has no 
meaning. 

The least squares function, because it’s using lines, re- 
quires you to find two parameters (the slope and the in- 
tercept). To fit a parabola rather than a line to your data, 
you d have to find three parameters instead of two. In 
general, polynomial fitting for a degree n polynomial re- 
quires you to find n+1 parameters. 

But you need not limit yourself to polynomials. Your 
data might fit a more exotic combination of powers, such 
as a rational fraction or a continued fraction. It might also 
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The program does unconstrained 
minimization in n dimensions by 


looking at the global topology of 
the problem as well as local infor- 
mation from the derivatives. 








contain terms with 
trig, log, or other tran- 
scendental functions. 
In general, we'd like to 
be able to find the 
minimum for any 
function, regardless of 
the complexity. All 
data can't be meaning- 
fully depicted as a 
straight line. 

When no limits are 
put on the parameters to a function, we have an “‘uncon- 
strained’ minimization problem in n dimensions (where 
nis the number of parameters that can vary). Imagine an 
n-dimensional surface; our problem is to find the “‘low- 
est’ point on the surface. As you might expect, this pro- 
cess can be both difficult and time consuming. The 
‘search space’ becomes very large as the dimension of 
the problem increases. By the late 60s and early 70s, the 
general minimization problem was brought under con- 
trol on large mainframe computers for functions of 
about 10—20 parameters. Today methods exist for han- 
dling much larger problems, but these are not really 
amenable to microcomputer implementation. 

The program presented here uses methods now ac- 
cepted as both robust and efficient. That is, these meth- 
ods can handle a wide variety of functions and data with- 
out failing, and they can find a minimum in a shorter 
period (fewer iterations) than other methods. Some meth- 
ods seek minima by a sort of ‘‘curve crawling.” Like the 
proverbial drop of water, they tend to smell ‘‘down”’ and 
go in that direction. 

The steepest descent method, for example, looks at the 
local topology (read: derivative information) and points 
itself orthogonally (at right angles) to the level curves in 
an effort to point toward the minimum. The process is 
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clarified by thinking of a contour map of a volcanic cra- 
ter. Just below the rim, the contour map will show a 
series of concentric circles. The program looks at this 
map, points itself toward the center by finding a direc- 
tion at a right angle to a contour line, and off it goes. 
There are other considerations in a real problem. For ex- 
ample, how big a step do you take? (You don’t want to go 
up the other side.) You get the idea though. The spacing 
of the contour lines will help you with step size. 

Of course this example is a bit contrived. Many geome- 
tries aren't concentric circles. The contour lines may often 
look like wickedly curved and contorted bananas, making 
the program waste a lot of time going toward the mini- 
mum. Think of a meandering river: It’s always going 
downhill. At each point it is locally following the largest 
gradient. Nevertheless, when viewed from above, the riv- 
er doesn't follow the shortest path from the tep to the 
bottom. 

The methods I have used are called ‘“‘quasi-Newton pos- 
itive definite secant update” methods. The ‘“‘variable met- 
ric’ part comes from looking at the global topology of the 
problem in addition to the local information given by the 
derivatives. That is, we're looking at the river both from 
above and from the perspective of the river itself. These 
methods try to take bananalike contours and transform 
coordinates internally so that they appear to the algo- 
rithm as concentric circles. Because the “‘metric’’ for do- 
ing this transformation changes as we move about, the 
methods are called variable metric methods. These meth- 
ods converge more rapidly to the minimum than do 
other approaches. 

Davidon seems to have been the first person to hit on 
these methods. The Davidon-Fletcher-Powell (DFP) method 
is still one of the best algorithms available. A similar meth- 
od—the Broyden-Fletcher-Goldfarb-Shanno (BFGS) meth- 
od—is thought to be somewhat superior for some prob- 
lems. These two methods have survived lots of empirical 
testing, and most people consider them to be the best. Both 
methods are used in the accompanying program as well 
as a “‘steepest descent’ method for comparison’s sake. 

A word of caution: All these methods have some limita- 
tions. They all tend to find a local minimum, but over the 
hill there may be a deeper valley. Your local minimum 
may not be the global minimum. Hence these methods may 
depend somewhat on where you start them. The better 
your original estimate of where the minimum might be, 
the better chance you have of not getting stuck in the 
wrong one when there are multiple minima. Unfortunate- 
ly, in higher dimensions it’s often difficult to guess how 
many minima there might be or where they might be. Sad- 
dle points can be troublesome too, fooling the program into 
thinking that it has arrived at the minimum. This difficulty 
is compounded as you use higher dimensions. 


Theory 


This section describes briefly how the minimizer works 
so that you can follow the code. The description is pretty 
meaty; you may want to skip past it if the mathematics of 
the problem don't interest you. On the other hand, if 
you'd really like to understand the inner workings of the 
mathematics, any of the references at the end of this arti- 
cle will be more than sufficient. 
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The program loop is divided into four main parts: The 
first uses the current approximation to the inverse Hessian 
matrix (this contains what I've previously called the global 
topology information). The current values of the deriva- 
tives of your function with respect to each of the parame- 
ters are also used to obtain a search direction. As long as 
the matrix remains positive definite, the theory guaran- 
tees that we will always point downward. So, our mini- 
mum will decrease at each step if nothing goes awry. 

In the second part, the step size is optimized with a 
linear search along the direction chosen in part 1. A rea- 
sonable trial step size is attempted, and the value of the 
function and its derivatives are calculated for the new 
location. Once again, if everything works, this trial step 
brackets the true minimum. A cubic interpolation be- 
tween the previous position and the trial position will 
find our new minimum. Although this search doesn’t 
have to be exact, we can run into problems here. The 
system will quit if the cubic interpolation fails because of 
strange geometries; if the minimum was not bracketed, a 
step size larger than the trial may be attempted. In any 
event, the result of this step is a new proposed minimum. 

In the third part we decide whether or not we've fin- 
ished. If the new minimum isn’t lower than the old one, 
we stop because the rounding off is probably killing us— 
the new minimum is always supposed to be lower. (Inci- 
dentally, this means you cannot go out of a valley to a 
lower valley unless something unusual happens.) We'll 
also quit if the estimated distance to the minimum, as 
computed internally by the program, is smaller than the 
first stopping criterion. 

We stop if the percent change in the minimum (from 
the previous value) is less than the second stopping crite- 
rion. No matter what happens, we stop if we've used up 
the number of iterations allowed by the user. If we de- 
cide to exit, the reason for stopping is returned to the 
main program. 

Should we make it through part 3, we prepare for an- 
other iteration. Here, derivatives of the function at the 
new minimum are computed (so that they'll be ready for 
part 1 on the next go-round). The inverse Hessian matrix 
is updated here too, using either the Davidon-Fletcher- 
Powell or Broyden-Fletcher-Goldfarb-Shanno updating 
method. Both of these methods guarantee that the in- 
verse Hessian will remain positive definite, so the new 
minimum will indeed be lower than the old one. If the 
steepest descent is being used, the update is skipped be- 
cause the identity matrix is always used in this case. The 
update completed, we return to part 1 above for another 
spin through the loop. 

As you've probably noticed, derivatives are computed 
twice per iteration in this scheme, a penalty of all meth- 
ods that include a linear search. When minimizing using 
experimental data sets with many points, the computa- 
tion of the derivatives is by far the most time-consuming 
process. Each time we evaluate the derivative vector, we 
need to make 2n function calls, where n is the number of 
parameters in the function. The number of function calls 
per iteration is approximated as 4n+ 2. Anything you can 
do in your function to speed things up will have a great 
effect on total computation time. The other computations 
take much less time. 
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A final word on the derivatives—there are 2n function 
evaluations per derivative because the derivatives are 
computed by a simple symmetric finite difference. The 
function is computed once after adding an epsilon to the 
value of the parameter in question. It’s computed a sec- 
ond time after subtracting an epsilon. Then we take the 
difference, dividing by twice epsilon and holding all 
other parameter values constant. 

Note that if the epsilon is too small, the derivative will 
be imprecise (because we may be subtracting two num- 
bers that are almost equal and then magnifying the dif- 
ference by dividing by a small number). On the other 
hand, if the epsilon is too big the approximation of the 
derivative—the secant instead of the tangent, as it were— 
will be too gross. This problem has no easy solution. The 
default is set to something reasonable, and the derivative 
calculation can be examined by setting ‘‘debug’”’ to 3 
(more on this in a moment). You can then set derivative 
step sizes individually for each parameter on input. After 
that you have to fend for yourself. 


The Program 

The program I have just described solves only small- to 
medium-size problems; it’s dimensioned to handle up to 
ten parameters, although you can adjust this number. To 
complete the program, you need to add a function repre- 
senting your model, compile that function, and link it 
with the other modules. The load module then does the 
minimization, subject to various input commands you 
give it. Actually the design of the system is predicated on 
building a library of models so that various optimizations 
can be performed against sets of data—more on building 
this library in a moment. 

My version of the system was built on an Osborne com- 
puter (running CP/M 2.2) using Software Toolworks’s C/80 
compiler (Version 3.0) with floating-point support. Digital 
Research's relocating assembler, library manager, and 
linker were also used. All these products were up to the 
task, although a special tip of the hat goes to Walt Bi- 
lofsky’s folks at Software Toolworks for an exceptional 
product. 

Most of the C code should port easily to other ma- 
chines. The file global.h that is included in all source files 
contains conditional compilation directives to ease the 
porting task. For example, the Software Toolworks com- 
piler doesn’t support the type double, so I’ve included a 
#define for the C/80 compiler to change all doubles to 
floats. 

If you're using the C/80 compiler, leave the #define C80 
statement in global.h. Otherwise, remove it to get the 
standard #includes for stdio.h and math.h. I used some of 
Software Toolworks’s library functions: atoi, atof, fabs, 
strcmp, strcpy, strlen, isspace, fopen, and fclose are Unix- 
like and should pose no problems. I’ve assumed that is- 


space( ) is a subroutine rather than a macro, however. If 
isspace( )is defined by 


#*define isspace(c) ( (c)\= =""I!(c)= ="' \t’ (= = ‘\n’) 
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the invocation 

isspace(*p+ + ) 

is expanded to 

Cptt=="ApttH=="' Wit pt+t+=="\n) 


where p is incremented three times if it’s not a space, tab, 
or new line. 

Two other portability problems are resolved by the 
#define C80 statement—the use of getline instead of fgets 
and the need to use %/frather than %fin scanf calls when 
using doubles instead of floats. 

Lint is unhappy with one part of VMM.C. The problem 
has to do with passing around pointers to functions. 
VMM.C needs to read a string containing a function name, 
look up that function in a table, and then pass the address 
of the function back to the calling program. So, we have 
to declare a function that returns a pointer to a second 
function that, in turn, returns a double. The correct decla- 
ration syntax is: 


double ( *obj(a,b) )() 
double a, b; 


oe 


The argument list has to be in the innermost set of paren- 
theses. Unfortunately, the normally stalwart C/80 
doesn't accept this declaration. There is a convenient, 
though very nonportable, way to work around it, 
though. In fact, some compilers won’t accept the code as 
given in the listings. I assumed that an int and pointer are 
the same size (a valid assumption in an 8080) and then 
wrote the code accordingly. Listing Nine (next month) 
shows the essentials of the VMM code as it stands. Listing 
Ten (next month) is a short sample program that shows 
the changes you have to make for the program to be cor- 
rect. 

It's obviously to your advantage to use an 8087 if you 
have it; the calculations in the program are floating-point 
intensive. 

As I mentioned earlier, you'll have to provide a model 
of your function as a C subroutine. I’ve provided several 
templates that you can look at to see what this model 
should look like. You must respect the number and type 
of all arguments to the function call; even if you don’t use 
all of them, they all must be included for consistency. 
The variable user (in main( )) lets you communicate with 
your function from the outside; when the minimizer 
calls your function, it calls it with user set to 0. 

You must update the function library routine (funlib( ) 
in VMM.C, Listing Two, page 76) every time you add a 
function to the system. You can find detailed instructions 
for updating funlib( ) in the comments in the code. Brief- 
ly, a few tables need to be changed. The system chooses a 
function interactively at run time, and the tables serve to 
automate the function selection process. These tables tell 
the program what the function is called when input is 
being interpreted, what name it has in the system, how 
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many parameters it has, how many constants it has, and 
what names you have chosen for the parameters. 

Adding a function is easy. By grouping the main pro- 
gram, the function library routine, and all the user func- 
tions in VMM.C, all the things that you're likely to change 
are isolated in one module, so VMM._C is the only module 
that ever needs to be recompiled. To rebuild the system, 
edit VMM.C, recompile it alone, and then link it to the 
remainder of the system. You may want to put the other 
modules into a library to ease the linking process. 

Before modifying the system, it’s best to get it working 
and play with it for a while. Compile and link all the 
modules provided, and then run the program using the 
sample data file I’ve provided (a1.dat, Listing Eight, next 
month). Unix-style redirection can be used to both enter 
the data and put the results into a file: 


A>VMM <A1.DAT >A1.RES 


You can interactively input the commands found in 
al1.dat too and see the results directly on your screen. 


The Program’s Output 
Some of the program’s behavior deserves comment. 
There are several levels of debug printout, so you can 
have the program glide through to the result quickly and 
silently or you can see it work in three levels of detail. 
Silent operation is important if the minimizer is embed- 
ded into another application. Sometimes, however, it is 
important to see what the program is doing. Debug level 
1 prints out some summary results.at each iteration. Lev- 
el 2 displays details of how the program is making its 
internal computations and decisions. Level 3 goes one 
step further and provides details of the derivative calcu- 
lations. 

You can set the debug level for each data case as part 
of the data input process. 


select BFGS method 
_ set constants in function 
_ set debug level 
set step size for derivatives 
select DFP method © 
exit program _ 
_ Set stopping criteria 
Set expected minimum _ 
select function (req'd first) 
set maximum iteration 
set minimum iteration 
Set limits on parameters 
set lower limits 
read a data file : 
do this data set, then read next 
pstart set starting values for parameters 
reset _ set reset value on update matrix 
sd select steepest descent method 
upperlimits set upper limits 


bfgs — 
constants _ 
debug 
derivsteps | 
dip. 
end... 
epsilons | 
exmin 
funname — 
iterlim 
itermin : 
limitflags 
lowerlimits 
newdata ~ 
next — 











Table 1: VMM keywords 








Command Input 

Another area of interest is the command input process. 
I've tried to make the program easy to use without rob- 
bing it of its flexibility for advanced users. Most of the 
important parameters can be adjusted on input, although 
a case can be run with as few as three commands: one to 
name the function to use, one to give the starting values 
for the parameters, and one to invoke the calculation for 
that case. Multiple cases can be stacked in one run. Each 
of these cases is referred to below as a data set. 

As you can see from the code (and from the sample data 
in Listing Eight), input is formatted as a keyword followed 
by either zero or more numeric values or strings. If the 
first word on the line is not recognized as a keyword, the 
entire line is taken as a comment. This is convenient for 
embedding comments in the output listing as all input 
commands are echoed, but might cause trouble if you're 
not paying attention when entering data. Recognized 
keywords are shown in Table 1, below. 

The first command in any data set must be funname. 
This command should be followed by the name of the 
function to be looked up in the library. (The table that 
you set up in funlib( ) tells the program how many pa- 
rameters and constants this function requires.) 

The only other mandatory command is pstart, which 
takes as arguments n floating-point numbers correspond- 
ing to the starting values for the n parameters expected 
by the function named in funname. 

The minimization algorithm can be selected with one 
of the sd, dfp, or bfgs commands. These correspond to 
steepest descent, Davidon-Fletcher-Powell, or Broyden- 
Fletcher-Goldfarb-Shanno methods. The dfp command is 
used by default. 

The minimum and maximum number of iterations are 
specified with the keywords itermin and iterlim, each fol- 
lowed by a fixed-point number. If these commands 
aren't used, defaults of n and 2n (where n is the number 
of parameters) are assumed. 

The reset command tells the program to reset its up- 
date matrix periodically after a specified number of iter- 
ations. If you don’t issue a reset command, a default of 
3n/2 is used. 

Stopping criteria can also be specified. By default, if the 
estimated distance to the minimum becomes less than 
1.0e—06 or the fractional change in the minimum be- 
comes less than 1.0e—03, the program will stop (provided 
that the minimum number of iterations has been execut- 
ed). You can alter these limits with the keyword epsilons 
followed by the limit on the estimated distance to the 
minimum and the limit on the fractional change (in that 
order). Both numbers must be entered, even if you want 
to change only one of them. 

One or more parameters can be constrained to a speci- 
fied range using the limitflags, lowerlimits, and upper- 
limits keywords. The three must always be used togeth- 
er. Limitflags is followed by n integers set to either 0 or 1, 
turning limit flags off or on. If the flag is set to off (the 
default if a command is not used), then there are no con- 
straints on that parameter. The keywords lowerlimits 
and upperlimits must be followed by n floating-point val- 
ues for the lower and upper limits on each parameter; 
the values for those parameters with flags set to 0 are 
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ignored. An example of the process is given at the top of 
Listing Eight. Constraints on parameters are very useful 
when, for example, you know that a certain parameter 
must be positive (it might be a physical dimension). In this 
case you can set its lower limit to 0.0 and its upper limit to 
some large number. You can also fix a parameter by set- 
ting its limit flag to 1 and setting its lower and upper limit 
to its starting value (this particular use of limits is rare but 
may prove useful). Constraining parameters slows down 
the system significantly as there are several places where 
a trigonometric transformation must be employed to 
convert from a bounded interval to an infinite one and 
back again. 

The derivsteps keyword lets you set the size of the in- 
terval used for computing the derivative. The default in- 
terval is 1 percent on either side of the current value. 

The keyword exmin adjusts the expected value of the 
minimum (0.0 is the default). 

To allow you to find best sets of parameters for whole 
families of functions, your function may use several con- 
stants, set using the keyword constants followed by m 
floating-point values for the m constants that your func- 
tion requires. Constant values are remembered from data 


8 bits (Osborne 1) 
single precision 
Z-80, CP/M 2.2 
5¥%-inch floppy 


- Result 


Method 
Starting values: (—1.2, 1.0,... —1.2, 1.0) 


oO. sd —.67140, .45982 14, 
dfp —.860, . : 17: 
bfgs — 64, . ee 


sd 89, . G1E-—Z2 
dfp wa. TAE—S 
bfgs oS, . TL5oOE-3 


sd 96809, . 596-2 
dfp 99982, . 166-7 
bfgs 99996, . S3E-—9 


Starting values: (1.2, 0.8, .. . 1.2, 0.8) 


Scale Minimum _Iiterations 


100 sd 
dfp 
bfgs 


95171, .90560 
9825, .9651 
1.0036,1 .0072 


sd 96279, .92363 
dfp 9986, .9971 
bfgs 99842, .99678 


sd 99944, .99869 
dfp 99986, .99971 
bfgs  .99983, .99963 


Time (total) 
Time per run 
Time per iteration 


tek 2 
166-3 
G6GE—5 


156-3 
10E—5 
1SE-S 


t7E-6 
10-7 
105-7 


670 seconds 
37.2 seconds 
3.2 seconds 


Table 2: 8-bit benchmark 








set to data set as a convenience. Nevertheless, if you 
change functions you must include a new constants state- 
ment to avoid using the old constants. 

Debug sets the debug level; follow it by 0, 1, 2, or 3. Note 
that the debug diagnostics start being printed as soon as 
this command is issued, so putting it in at the start of a data 
set gives you debug diagnostics as part of the input echo. 
Debug level 0 (no diagnostics are printed) is the default. 

Use the newdata command to read a file with experi- 
mental data. Follow the command with the full file name 
for the data (e.g., b:exp.dat). The data file is assumed to 
have a very specific format: The first element is the num- 
ber of lines to read from the data file (extra lines are ig- 
nored). The rest of the file is data (in floating-point for- 
mat). The x value must be entered first, then the y value. 
The data is put into an array of structures called exp (de- 
fined near the top of Listing Two). If you need something 
different (such as three numbers instead of two), you'll 
have to change the definition of the DATA structure (in 
global.h), as well as the associated input routines, and 
then recompile. Note that the maximum number of data 
points is defined as DMAX in the main program and will 
probably need to be enlarged. If you want to echo the 
data as it’s read, turn on the debug before requesting new- 
data. The program aborts if it can’t open the data file. 

One caveat with newdata: Data read into the array per- 
sists from one data set to the next (in the same way as do 
constants). It didn't make sense to have to reread the data 
from disk for each new case if the same data was being 
used. Anyway, if you want to change data files from one 
case to another, you must issue a call to newdata with a 
different file name. Incidentally, I used the keyword 
newdata instead of something such as data file to empha- 
size that you are in fact reading in new data. 

The next command starts up the algorithm (moves you 
from a Data Input to a Run mode) for the current data set. 
With the exceptions of data entered with newdata and 
constants read in with constants, each set starts with a 
clean slate—there’s no carry-over from the previous data 
set. If debug was set to 1 on the previous data set, and you 
still want it to be 1, you must request it again. 

The keyword end causes the program to terminate. 

If an error is detected in a data set, the set is skipped. If 
the reason for the data error isn’t obvious, the case should 
be run a second time with debug set to 1 at the very start 
of the case. You can always reset it to 0 just before issuing 
a next command, thereby getting additional debug print- 
out just for the input stage. Sometimes the error is caused 
by a mistyped keyword, which causes the whole line to 
be treated as a comment. If debug is set to 0, there’s no 
indication that this has occurred. The program always 
tells you how many commands and how many comment 
lines it’s read, however, so you have a quick way of 
checking for this problem even if debug is off. 


Benchmarks 

Tran two benchmarks to show the relative performance 
of the various algorithms mentioned earlier (see Tables 2, 
left, and 3, page 32). The Rosenbrock function: 


F = K * (x, — x,2)2 + (1 — x,)? 
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METRIC MINIMIZER 
(Continued from page 30) 


was used. F is 0 when 
Xo = X;* and x; = 


So, at x; = 1, x2 = 1, we have a minimum for all K > 0. 

The constant K allows us to “‘scale’”’ the two terms; for 
K = 1, the two terms have about the same contribution to 
F in the neighborhood of the minimum. As K becomes 
large, the problem becomes progressively more difficult: 
The first term, which ‘‘drives” x2 to be x,?, will swamp 
the second term, which drives x, to 1. For K = 100, we 
would expect to see xz approach x,? but 
not see x; go to 1. I have included tests with K = 1, 10, and 
100 on an extended Rosenbrock function using ten in- 
stead of two variables; that is, the function is made up of 
ten terms consisting of five pairs of variables related in 
the same way. The tests have been done using a poor 
starting point (—1.2, 1.0) and a fairly good starting point 
(1.2, 0.8) so you can evaluate the importance of a good 
starting value. 

All tests were performed using the same maximum 
number of iterations (20). The inverse Hessian approxi- 
mation was reset every five iterations in the dfp and bfgs 
methods. The factor K is called scale in the tables. 









16 bits (Intel 86/30 System) 
double precision 
8086/8087, Xenix 

25 Meg hard disk 

























Scale Method Result Minimum _ iterations 
Starting values: (— 1.2, 1.0, . .. — 1.2, 1.0) 
100 sd —.67131, .45970 14. 4 
dfp -—.64703, .42826 14. i 
bigs -—.63495, .41267 13. 7 
10 sd .89008, .78805 G:1E-—2 20 
dfp 9983, .996 13E-5 20 
bfgs 999, .998 8.1E—6 20 
1 sd 96809, .92871 J2e 3S 20 
dfp -99980, .99961 Z20E7 10 
bfgs 99980, .99960 20E/ 10 
Starting values: (1.2, 0.8, . . . 1.2, 0.8) 
100 sd 99171, .90559 .eee 10 
dfp 981, .9624 1Lee-3 10 
bfgs 1.0031,1 .0062 48E—5 10 
10 sd .96279, .92363 SES 20 
dfp 99846, .99668 1S&-5 5 
bfgs 99837, .99650 16E-5 5 
1 sd 99943, .99872 t7E=G 10 
dfp -99986, .99970 57 EG 3 
bfgs 99982 .99962 165-7 5 
Time (total) 81 seconds 
Time per run 4.5 seconds 
| Time per iteration 0.4 seconds 






Table 3: 16-bit benchmark 





The correct result is (1.0, 1.0, ... 1.0, 1.0), which would 
be indicated below as 1.0, 1.0. The number of digits in the 
result shows how much the answer varies from pair to 
pair among the five pairs of results. The minimum 
should be 0.0. 


The Listings 

Several listings are provided with this article. Global.h 
(Listing One, page 74) is the global include file mentioned 
earlier. It contains conditional compilation switches for 
the C/80 compiler versus other C compilers. 

VMM.C (Listing Two) is the main program, the function 
library module, and all the functions in the library. For 
the time being, there are three functions: cohen( ) is the 
test problem in Cohen's book (see the reference in code), 
sine( ) finds coefficients for a polynomial approximation 
by fitting sine data, and rosen( ) is used as a benchmark. 
You ll have to compile, assemble, and then link this file to 
add a function to the library. All the other files may be 
kept in object format and just linked to VMM.OBJ (or .O, 
-REL, or whatever) to generate a new load module. 

MINIM.C (Listing Three, page 82) contains the main min- 
imizer routine. 

AUXL.C (Listing Four, next month) contains the line 
search procedure and the decision logic for stopping the 
minimization. 

UP.C (Listing Five, next month) holds the routines re- 
quired for updating the ‘‘topology matrix’’ according to 
the DFP or BFGS methods. 

UTIL.C (Listing Six, next month) contains a variety of 
utility routines. Among these are routines for transform- 
ing from external to internal coordinates when dealing 
with constrained variables, routines for calculating de- 
rivatives, routines for initializing everything at the begin- 
ning of a data set and for setting proper defaults, vector 
and matrix output routines, and routines for various ma- 
trix and vector manipulations. 

READ.C (Listing Seven, next month) is the input inter- 
preter. There are a few conditional compilation direc- 
tives in this module so that scanf will handle floats and 
doubles correctly. 

A1.dat (Listing Eight) is a sample input for a test run, 
including the Rosenbrock benchmark mentioned above. 
A1.dat reads in sine.dat (Table 4, below), which contains 
the experimental data for the function sine( ). 


Availability 
This program is put in the public domain for personal, 
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050000 
.100000 
.150000 
.200000 
.250000 
.300000 
.350000 
.400000 
-450000 
.000000 


Table 4: sine.dat 





078459 
.156434 
233445 
309017 
382683 


453990 
522499 
987785 
649448 
.107107 







.950000 
-600000 
.650000 
.700000 
.750000 - 
.800000 
.850000 
-900000 
-950000 
1.000000 1.000000 


.160406 
.809017 
.852640 
.891006 
.923879 
951056 
972370 
.987688 
.996917 
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METRIC MINIMIZER 
(Continued from page 32) 


nonprofit use only. Permission is granted to reproduce it, 
but I would appreciate your commenting any changes 
you make. As the publicly available source code is obvi- 
ously beyond my control, I can assume no liability for 
subsequent versions. 

This source code is available on several CP/M remote 
BBSs, in particular on the Mountain View RCPM (415) 965- 
4097 and the First Osborne Group (FOG) RBBS #1 (415) 755- 
2030. Both of these systems provide free downloads to 
members satisfying nominal entry requirements. 

I plan to keep.a list of registered users in order to sup- 
port continuing development and evolution of this sys- 
tem. Registered users participate in a common pool of 
bugs and bug fixes as well as potential future updates. To 
become a registered user, send a check for $25 to: Billy- 
bob Software, P.O. Box 363, Belmont, CA 94002-0363. 

A registered user can obtain the source code on a 5%4- 
inch disk by sending a preformatted disk and sufficient 
return postage to the above address. Be sure to indicate 
what format your disk is expecting. The most recent ver- 
sion will be returned. I can handle many CP/M formats as 
well as PC DOS and MS DOS formats; if you require an un- 
usual format, send a postcard and I'll let you know if I can 
accommodate you. 


Bibliography 

There are lots of good books in this field, and the list giv- 
en here could easily be three times longer. I've tried to 
include those books that specifically address the minimi- 
zation problem. 


Acton, F. §. Numerical Methods That Work. New York: 
Harper & Row, 1970. One of the best overall treatments of 
minimization, there are both wisdom and technique in 
this book. It’s a good place to start if you're new to numer- 
ical analysis. 
Cohen, A. M. Numerical Analysis. New York: Halstead 
Press, Wiley, 1973. This book is a paperback, inexpensive 
but solid. Cohen’s notation is used throughout the pro- 
gram described in this article. He describes the Davidon- 
Fletcher-Powell method only. 
Dennis, J. E., and Schnabel, R. B. Numerical Methods for 
Unconstrained Optimization and Nonlinear Equations. En- 
glewood Cliffs, N.J.: Prentice-Hall, 1983. A definitive work 
in the field but it’s very theoretical. 

DDJ 
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ARTICLES 


Concurrency 
and Turbo Pascal 


fter much trial and error, I 
A have developed a method to 

use Turbo Pascal (CP/M-80) to 
implement several concurrent tasks. 
These techniques are useful for writ- 
ing software that must respond to 
several real-time events, such as a 
modem program. In this article, I 
will explain what concurrency is, 
what it is useful for, and how to 
achieve it. Turbo Pascal provides a 


convenient way to become acquaint- | 


ed with multitasking because of the 


by Ernest E. Bergmann 


An appropriate use of 
coroutines is in mon- 
itoring the keyboard 


and the serial port 
under a terminal 


program. — 


ease of writing and trying variations |____ 


quickly and clearly. 


Subroutines vs. Coroutines 

A subroutine or function call is fre- 
quently used in programming to car- 
ry out a ‘“‘subtask”’ that a main task 
needs in order to continue. Economy 
of coding occurs when this same sub- 
task is needed in several different 
places. The subtask is subservient to 
the main task in that its existence de- 
pends upon being called upon by the 
main task. 

A pair of coroutines should appear 
to proceed in random order, namely 
the starting or completion of either 
routine is not in complete lockstep 
with the other routine. Doing several 
things at the same time is often called 
multitasking; it is an important fea- 
ture of the languages Modula and 
Ada. 

An example of a possible use of 
coroutines is the implementation of a 
terminal program on a personal 
computer. In this case, one task has 
the responsibility of monitoring the 
keyboard. Every time a key is 
pressed, the corresponding charac- 
ter is sent out of the serial port. The 
other task monitors the serial port 
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for incoming characters, and when 
one arrives, it is sent to the display. 
These two tasks are more or less in- 
dependent as they do not need to 
share any function. 

An important characteristic of the 
operation of such a program is that 
you do not assume that the arrival of 
characters at the serial port is closely 
related to tapping the keyboard. Fail- 
ure of characters to arrive from ei- 
ther source should not interfere with 
the operation of the other task. 

A skeleton of the program should 
be: 


task1; 
begin 
repeat 
serout(keyin); 
until false{forever}; 
end; 
task2; 
begin 
repeat 
videout(serin); 
until false{forever}; 
end; 


Each of the tasks resembles the 
main procedure of a Pascal program. 
As is good form in structured pro- 
gramming, all the tough work gets 
put off to be written in the subrou- 








tines and functions (particularly se- 
rin and keyin). Before I discuss the 
subroutines in detail, note that, for 
the tasks to run independently of 
each other, they need to have sepa- 
rate stack spaces. The stack is used to 
save return addresses (among other 
things) when subroutines and func- 
tions are called. If both tasks shared a 
common stack, there would be an 
undesirable tendency for return ad- 
dresses (and possibly data) to get con- 
fused between the two tasks. Thus, 
each task should be assigned its own 
stack. 

In Listing One, page 88, you can see 
that task1 and task2 indeed start by 
assigning their own stack spaces. Al- 
though mystack is declared as a vari- 
able in both task1 and task2, the tasks 
are assigned separate memory loca- 
tions by the Turbo Pascal compiler. 
The compiler assigns different loca- 
tions for every variable of the main 
program and for every parameter, 
return value, and variable of every 
function and procedure. ; 

The two functions keyin and serin 
are characterized by taking an un- 
predictably long time to complete 
their tasks—for example, keyin could 
take hours if the keyboard operator 
fell asleep (and meanwhile other 
things might be happening). These 
two functions consist of a loop where 
the function (tediously) asks whether 
a character is available. It is in these 
loops that most of the time is wasted; 
as soon as a Character becomes avail- 
able, the function can return its 
value. 

The crux of accomplishing concur- 
rency is to share the processing 
power between tasks. This sharing is 
accomplished by the calls to defer 
done by keyin and serin. Defer is treat- 
ed as a procedure, but it succeeds in 
Switching the processor from one 
task to another (hence the choice of 
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name). It should be invoked wherev- 
er a procedure might not proceed 
quickly. Defer should also be invoked 
from time to time if rapid response to 
external events (such as key presses) is 
needed and a procedure or function 
is doing extensive calculations. 

I found it convenient to treat the 
main portion of the program as 


taskO; it is special in that it is given. 


initial control when the program 
starts. It must initialize variables for 
defer to operate; other initializations 
can be done here as well, such as 
sending commands to hardware to 
configure baud rates and so on. In ad- 
dition, the way the program should 
terminate is through the main proce- 
dure; the Pascal compiler does not 
empower the subroutines to termi- 
nate the program in a normal man- 
ner. To help in start-up and termina- 
tion, two procedures, initall and exit, 
are provided. 

The coding of defer was arrived at 
after some experimentation. I found, 
for example, that assigning an array 
element with the hardware stack 
pointer (stackptr) results in a differ- 
ent value than assigning a simple 
variable with stackptr. The reason is 
that the compilation generates code 
that pushes an address pointer for 
the element on the stack and so af- 
fects the value of the stack pointer at 
that moment. 

When defer is called, the return 
address in the calling task is on the 
(current) stack. When defer switches 
stack pointers (thus switching to the 
stack of another task), it will return to 
the point in the new task where de- 
fer had been called. 

A task is entered at two places: at 
the start and reentry (from where it 
had been deferred). It is necessary 
for defer to know which (re-)entry to 
use. This is accomplished with a test 
of the saved stack pointer. If the 
saved value is zero, then it can as- 
sume the task has never been en- 
tered and it should start at the begin- 
ning. When a task is started, it should 
immediately initialize the stack 
pointer to its own stack space. 

In the interests of clarity and easy 
modification, the scheduling aspect 
of defer has been broken off into a 
separate procedure. The functioning 
of schedule here is almost trivial; it is 
apparent that for special applica- 
tions with more tasks, you might 
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wish to try other scheduling algo- 
rithms than round robin. 

The beauty of using the proce- 
dures initall, defer, schedule, exit, and 
the like is that they may be used as 
black boxes—the details of how they 
work can be ignored in their use. 
Once I had written them, I concen- 
trated my efforts on coding each in- 
dividual task. 


Reentrancy 
Emboldened by my success with us- 
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C-terp will grow with you as you progress 
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Unbelievable, but true, the easiest-to-use 
C interpreter will provide you with the 
most advanced programming features for 
upward growth. Our exclusive object 
module support enables you to add 
libraries (like HALO, PANEL, Windows for 
C, etc., or your own homebrew libraries) 

to C-terp as you add them to your comput- 
ing repertoire. Use C-terp as a microscope 
on your libraries! Flip a bit and allow our 
software paging (NEW) to handle those 
big jobs! There are no fixed-size tables 

to overflow, and C-terp can be configured 
for different screens and screen adapters 
(NEW). With multiple modules and full 
K&R support, we offer a dream C environ- 
ment. 


@ Our new improved configurable editor 
competes with anything going. 


@ Speed -- Linking and semi-compilation 
are breathtakingly fast. 


@ Convenience -- Errors direct you back 
to the editor with the cursor set to the 
trouble spot. 


@ Symbolic Debugging -- Set breakpoints, 
single-step, and directly execute C ex- 
pressions. 


@ Compatibility guaranteed — batch file to 
link in your compiler’s entire library. 
Supported compilers include: 
Computer Innovations C86, Lattice C, 
Microsoft C 3.0, Mark Williams C86, and 
Aztec C. 


@ Many more features including batch 
mode and 8087 support. 


ing Turbo Pascal to implement multi- 
ple, independent tasks, I went on to 
try multitasking with procedures 
that are shared among several tasks. 
My first attempts failed miserably, 
and I learned the hard way that pro- 
cedures and functions in Turbo Pas- 
cal are not reentrant even if they 
may be recursive. 

A requirement of Pascal is recur- 
sion, which is supported by Turbo 
Pascal (using the {$A—} option). Re- 
cursion is where procedures or func- 
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CONCURRENCY 
_ (Continued from page 37) 


tions call themselves directly or indi- 
rectly (by calling other procedures or 
functions that call them). An exam- 
ple of recursion would be the imple- 
mentation of autoCR. AutoCR pre- 
cedes a line feed with a carriage 
return: 


procedure putc(c: char); 


begin 
if c=LF then putc(CR); 


eMail) Us Se 


end; 


You cannot assume that all lan- 
guages support recursion—for exam- 
ple, FORTRAN does not. To support re- 
cursion it is necessary that each 
invocation of a procedure has its 
own distinct variable space. If the 
space is not unique (if recursion is not 
supported), then in the above exam- 
ple the value of c would be changed 
by the second invocation of putc to a 
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CR and in all likelihood, the LF (the 
original invocation) would not be 
printed but replaced by a CR; two 
CRs would be produced instead of 
the desired CR-LF sequence. 

Although Turbo Pascal supports 
recursion when you use the {$A—} 
option, it does not support reen- 
trancy. For a procedure to be reen- 
trant, it must be possible to defer in 
the middle of an invocation, switch 
to another task, and for that other 
task to reenter the same procedure 
without affecting the subsequent op- 
eration of the first invocation of that 
procedure. It was assumed in the de- 
velopment of Turbo Pascal, I pre- 
sume, that it would not be used in a 
multitasking environment. 

The most straightforward way 
around this difficulty is not to re- 
quire reentrancy. Any procedure or 
function that might be deferred di- 
rectly or indirectly and that is called 
by more than one task should be du- 
plicated as many times as is neces- 
sary so that each copy is used by only 
one task. Listing Two, page 90, is an 
example of this approach. 

Listing Two is a program I devel- 
oped to demonstrate the use of 
queues to enable tasks to operate 
more independently of each other. 
In operation, it displays the charac- 
ters typed at the keyboard on the 
screen. What is noteworthy about 
this program is that it is quite easy for 
the typist to type faster than the dis- 
play rate and, thus, to ‘‘type ahead.” 
The display continues to show more 
and more characters even after the 
typist has paused; no characters have 
been “‘lost’”’ by the slowness of the 
display relative to the keyboard. 

To make things more interesting, I 
provided the XON/XOFF protocol to 
make the display stop altogether on 
demand and to resume on demand 
later. If you were to type a Ctrl1-S then 
the display would not show any ac- 
tivity even though you might be typ- 
ing another sentence or two. When 
you eventually type a Ctrl-Q, the dis- 
play will reactivate and show what- 
ever was held back. 

As a touch of friendliness, you can 
correct your typing by typing a back- 
space to undo the last character 
typed. An additional convenience is 
that the program provides line feeds 
after any carriage return you type to 
put you on the next line without — 
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your having to remember to type the 
line feed as well. Should you type a 
line feed, it will be discarded. 

Listing Two consists of three tasks. 
The first task (keyboard) gathers 
whatever is typed and quickly stores 
it away so that it can be digested at 
leisure without missing any key- 
strokes. The method of storage is 
known as a queue, reminiscent of 
people standing in a line in which 
the first person in line is the first to 
get service. Another expression for 
the same technique is FIFO (first in, 
first out). No one seems to use the ac- 
ronym LILO (last in, last out), al- 
though it probably would be under- 
stood equally well . In any case, the 
first task places all characters re- 
ceived into the first queue by calling 
the procedure enqueue1. 

The second task is called the filter. 
Its function is to take each character 
that it obtains from the queue of 
characters received by task1 and ei- 
ther pass them along or carry out 
particular actions. If a carriage re- 
turn is encountered, you want a line 
feed to follow it. If a line feed is 
typed, it is to be dropped. Ctrl-S and 
Ctrl-O characters are not passed 
along but are used to stop and start 
the output, respectively. A Ctrl-C 
causes the program to quit. Most 
characters are passed along. 

The output of the filter does not go 
directly to the output device but is 
placed in a second queue awaiting a 
chance to go to the display whenever 
the display is ready to take this out- 
put. Thus the filter produces output 
by calling the function enqueueZ2. 

The third task, printer, takes char- 
acters from the second queue by call- 
ing dequeue2. Dequeue2 either re- 
turns with a character right away or 
may take its time (deferring to other 
tasks). Delays in returning a charac- 
ter mean that there are no characters 
(and you need to wait for the filter to 
supply some more) or that the queue 
is in a ‘“‘noflow’ state. Because the 
video display is normally very fast, I 
chose, for purposes of illustration, to 
slow the printer task artificially by 
requiring it to count up to PRATE be- 
fore sending each character. 

Notice that the functions occupan- 
cy(p) and vacancy(p) are each used 
by more than one task. Task1 uses va- 
cancy (through enqueue1). Task2 uses 
occupancy (through dequeue 1) and 
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vacancy (through enqueue2). Task3 
uses occupancy (through dequeue2). 
The functions occupancy and vacan- 
cy can be “‘shared” between several 
tasks because they never defer. 

On the other hand, I have learned 
the hard way not to try to share en- 
queue(p) and dequeue(p) because 
these functions would defer, and 
they need to be reentrant. Thus I 
have separate but equal procedures: 
enqueue1 and enqueuez2. Also, I have 
the separate functions dequeue1 and 
dequeue2. 
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Conclusion 

It is relatively easy to create a multi- 
tasking program with Turbo Pascal 
in CP/M-80 using the method I have 
shown here. You have to be careful, 
though, that functions or procedures 
that need to be reentrant are re- 
placed by several copies to avoid that 
need. 
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ARTICLES 


The Problems of 
Parallelism 


ife has a grammar with four 
: terminal symbols. G, T, A, and 
C (guanine et al) are four 
chemical bases that combine to form 


on Earth. In pairs, the bases form se- 
quences up to hundreds of thou- 
sands of base pairs long that define 
the genetic makeup of an organism. 
Several thousand such functional se- 


small fraction of the possible se- 


quences. Having learned that struc- |_ 


tural similarity is the first clue to 
functional similarity, molecular biol- 
ogists such as J. Douglas Welsh at 
Princeton University begin the pro- 
cess of identifying the function of 
each new sequence by comparing, 
base pair by base pair, the new se- 
quence with existing sequences. Un- 
raveling the thread of life is a prob- 
lem in pattern matching. 

Many good algorithms for pattern 
matching are known, but good algo- 
rithms are not always good enough. 
Welsh found that the problem was 
using more computer time than he 
could afford, and he worried that the 
pruning heuristics he employed to 
focus only on ‘relevant’ sequences 
would cause him to overlook impor- 
tant functional sequences. He want- 
ed to search both exhaustively and 
efficiently. Existing algorithms and 
architectures seemed to prevent him 
from doing so. 

Those who read the discussion of 
the Fgrep algorithm in DDJ (Septem- 
ber 1985) will recall how algorithms 
that do pattern matching in parallel 
can sometimes outpace their sequen- 
tial counterparts. Princeton graduate 
student Daniel Lopresti, enlisted to 


See eer 
Michael Swaine, 2464 Embarcadero 
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_ Parallel processing 
the two-stranded, helical molecules | 
of DNA, the grammar behind all life | 


_ thinking of system 





by Michael Swaine 





involves both a re- 


architecture and a 
JSundamental recast- 


_ing of algorithms. It’s 
quences of base pairs have been | — 
identified, but they represent only a | 


_a Knuth 50 task. 


solve Welsh’s problem, followed a 
similar insight and found a parallel al- 
gorithm that he estimates can pro- 
duce a thousandfold increase in pro- 
cessing speed over the algorithm 
Welsh had been using. Lopresti has 
implemented his algorithm in a mul- 
tiprocessor chip that represents an 
advance in the technology for molec- 
ular biology and could also find appli- 
cations in many other disciplines in 
which string comparisons are 
amportant. 

LOpresti’s example shows that re- 
placing traditional sequential algo- 
rithms with parallel algorithms can 
produce significant increases in 
throughput and efficiency. In fact, 
problems that have been shown to 
be NP-complete and to require expo- 
nential time to solve by sequential 
methods can often be solved in poly- 
nomial time, and sometimes in linear 
time, using parallel techniques. The 
development of appropriate parallel 
algorithms for fundamental prob- 
lems such as searching, sorting, pat- 
tern matching, matrix operations, 
fast Fourier transforms, and so on is 
by no means a simple matter, how- 
ever. Like Lopresti, the designer of a 
successful parallel solution to a pro- 
gramming problem today is likely to 



























































be programmer and microprocessor 
designer in one body because imple- 
menting a parallel solution tends to 
involve the entire computational 
model, and the parallel algorithm 
can rarely be viably grafted onto an 
existing sequential Von Neumann 
architecture. 


Concurrency 
There are, of course, many examples 
of concurrent processing in other- 
wise sequential architectures. Con- 
currency at the level of the operating 
system in the case of Concurrent DOS 
or at the “operating environment” in 
the cases of TopView and DESQview, 
for example, allows entire applica- 
tions to run in what is, at that level, 
parallel fashion. At a deeper level, the 
machine is executing instructions in 
strictly sequential fashion. Taking it a 
step higher, one can implement con- 
current processes within an applica- 
tion program; IBM claims that Top- 
View will support concurrency 
within the programs that it is running 
concurrently. Another article in this 
issue examines the techniques for im- 
plementing concurrent processes. 
(See “Concurrency and Turbo Pascal”’ 
by Ernest Bergmann.) 

There are also examples of deeper 
concurrency that still don’t force any 
serious rethinking of fundamental 
algorithms or of the architecture of 
the machine. Print spooling and the 
use of dedicated math coprocessors 
both split off easily segregated opera- 
tions and hand them off, freeing the 
CPU for other operations. A more 
complex separation of functions was 
presented by James Vaughan and 
Robert Smith of Tantivy Associates of 
Palo Alto, California, at the Wescon 
show last November. Their machine 
implements a structured sequencer 
that operates in parallel with arith- 
metic operations. The sequencer just 








Dr. Dobb’s Journal, March 1986 





traverses a tree; it supplies the calling 
and branching operations of tradi- 
tional sequential programming. The 
computational component is a co- 
processor that performs all the tradi- 
tional arithmetic operations, passing 
single-bit messages to the sequencer 
and picking up its instructions and 
data from it. But the resultant con- 
currency between sequencer and 
processor is, as Vaughan himself 
points out, similar to the kind of con- 
currency that exists between a main 
processor and a math coprocessor in 
a personal computer. 


Parallel Processing 

True parallel processing involves 
both a rethinking of system architec- 
ture and a fundamental recasting of 
algorithms. It exists. There are paral- 
lel-processing computers in exis- 
tence today, and more are on the 
way. Full use of those computers— 
exploitation of parallel processing at 
the level at which we have exploited 
sequential processing today—repre- 
sents a large step forward, but it’s not 
here yet. It’s a level 50 problem in the 
notation of Knuth’s Fundamental AI- 
gorithms. General-purpose parallel- 
ism in machine architecture and al- 
gorithm design may well require 
cooperation on the level of the ef- 
forts that produced the sequential 
machines of the 1940s. That coopera- 
tion is not always present. 

A year ago, Peter C. Patton was 
growing frustrated directing efforts 
at the Microelectronics and Comput- 
er Technologies Corp. (MCC) in Aus- 
tin, Texas, to solve the problem of de- 
composing tasks into components 
appropriate for parallel execution. 
After resigning his post with MCC, he 
expressed his frustration with the or- 
ganization’s lack of focus in The Wall 
Street Journal: ‘“Most people think 
parallel processing is the future, but 
nobody can agree on how to get 
there,” he said. 

One organization trying to provide 
some focus is the Parallel Processing 
Research Council, a group that grew 
out of a 1983 NSF workshop on 
parallel-computing research. Accord- 
ing to IEEE Computer (December 1985), 
the group plans to promote collabora- 
tive efforts in parallel-processing re- 
search among government, industry, 
and university researchers by pro- 
ducing a newsletter, distributing in- 
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formation about nonproprietary re- 
search and projects in parallel 
hardware and software, and starting 
two research facilities. A report is- 
sued by the council attributes any 
lack of progress in the area to lack of 
facilities and significant collaborative 
effort, deficiencies the group hopes to 
remedy. 

One of the differences among ap- 


proaches to parallelism is the archi- 
tecture vs. algorithm distinction. It 
stems from the necessity of finding a 
good match between algorithm and 
architecture and the question of just 
how to achieve the match. Does one 
start with the architecture and tailor 
the algorithms to it or develop effi- 
cient parallel algorithms and create 
architectures to support them? 


Objective-C 


Objective-C 
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PARALLELISM 
(Continued from page 41) 


Perhaps the problems have to be 
solved in parallel. 


Architecture-Driven Design 

According to Sudhakar Yalamanchili 
and J. K. Aggarwal of the University 
of Texas at Austin, writing in [EEE 
Computer (December 1985), the ap- 
proach of tailoring the algorithm to 
the architecture can achieve high 
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W. Hunt, PC Tech Journal 
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performance at the expense of gen- 
erality. They refer to this approach 
as architecture-driven algorithm de- 
sign. In particular, architectures em- 
ploying different interconnection to- 
pologies among processor, memory, 
and I/O resources will force recast- 
ing of parallel algorithms. 

Two broad architectural ap- 
proaches to parallelism are the mul- 
tiple-instruction stream/multiple- 
data stream (MIMD) and_ the 
single-instruction stream/ multiple- 
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data stream (SIMD) architectures. 
Machines embodying each of these 
architectures will be appearing on 
desktops within a year. Ncube Corp. 
of Beaverton, Oregon, will be selling 
a four-processor card for the IBM PC/ 
AT this year that is mostly intended 
for use by developers of software for 
the larger parallel systems the com- 
pany is planning. Ncube’s card em- 
ploys MIMD architecture. 

Apparently an architecture-driven 
design can at least peak out at good 
performance figures, even if it is not 
the optimal parallel solution for all 
problems. ITT expects to release a 
SIMD board for desktop computers 
next year. If estimates by Steven Mor- 
ton, ITT’s designer, are correct, ma- 
chines with the SIMD board will reach 
performance levels up to two-thirds 
of a Cray-1 and cost around $10,000. 

ITT and Ncube are both developing 
general-purpose machines. On the 
other hand, there are examples, such 
as Princeton University’s Navier- 
Stokes machine, of architectures de- 
veloped to support particular paral- 
lel algorithms. 

The Navier-Stokes equations for flu- 
id flow are used to solve problems in 
fluid dynamics. The equations are 
good candidates for parallel process- 
ing, and Daniel Nosenchuck and Mi- 
chael Littman are building a 128-node 
computer dedicated to solving Navier- 
Stokes equations. They developed the 
parallel algorithm and designed the 
machine to implement it: They ex- 
pect to crank through equations at 50 
gigaFLOPs, a performance level 
achieved at some expense in 
generality. 

The algorithm-driven approach, in 
contrast to the architecture-driven 
approach, is suggested by Lopresti’s 
DNA machine and by machines run- 
ning Prolog programs. Prolog sug- 
gests some common methods of par- 
allelism, chiefly AND-parallelism and 
OR-parallelism. The DNA machine’s al- 
gorithm is specific, while the ap- 
proaches to parallelism implicit in 
Prolog are quite general. Many prob- 
lems, cast as Prolog programs, suggest 
a natural parallel formulation—natu- 
ral for Prolog, at least. But despite 
such general schemes for paralleliz- 
ing algorithms, the development of 
efficient parallel algorithms for com- 
mon problems is still in its early 
stages. 
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Communication 

As in the 1940s with the development 
of the sequential computer and its as- 
sociated algorithms, algorithms and 
architecture for parallel processing 
may have to be developed hand in 
hand, requiring close communica- 
tion among researchers. 

The Computer Measurement Re- 
search Facility of the National Bu- 
reau of Standards is collecting paral- 
lel benchmark programs. The plan is 
to develop a public repository of in- 
formation about parallel-computer 
performance; the Bureau wants pro- 
grams, written in high-level lan- 
guages, that measure some aspect of 
parallel-processing performance. Di- 
rect inquiries to: ; 


Computer Measurement Research 
Facility 

Institute for Computer Sciences and 
Technology 

Materials Building MS B364 

National Bureau of Standards 

Gaithersburg, MD 20899 

(301) 921-3274. 


Those interested in joining the Par- 
allel Processing Research Council 
should contact: 


George Almasi, PPRC Chair 

IBM T. J. Watson Research Center 
P.O. Box 218 

Yorktown Heights, NY 10598 
(914) 945-1305 
ALMASILYKTVMX@IBM 
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was intrigued to read in Dr. 
J Clinic (DDJ, September 


1985) that he thought “the Dos | _ ; ae | 
_ When writing vour 


BIOS doesn’t use the ROM BIOS for its 
disk input, and DOS’s BIOS does it bet- 


ter.’ Because I know that this is not so | 


_ dlers using interrupt 
_ 13h, set the head set- 
_ tle time to O for all 

_ read operations. 


(DOS does use the ROM BIOS), I thought 
I would experiment and discover 
more of the story and the answer to 
the riddles presented in the column. 


DOS definitely uses the ROM BIOS to | 
handle disk I/O. This can be verified | 
by examination of the DOS BIOS code |. 


as it resides in memory or by loading 
the DOS BIOS file (IBMBIO.COM for PC 
DOS or IO.SYS for MS DOS) into DEBUG 
and unassembling it. Look for the INT 
13 instructions: There is the disk I/O 
handling. You will not see any of the 
lowest level DMA and disk-controller 
handling procedures that you find in 
the ROM BIOS. It would be against 
IBM's and Microsoft's software design 
principles to include such low level 
machine dependencies in the DOS 
BIOS. 

I used E-X-E Software’s DOS200LS 
System Utilities package to perform 
timing tests to verify the benchmarks 
published in the column. This pack- 
age contains a program to trap DOS 
functions and time them and anoth- 
er program to produce listings of the 
results. Five listings are included 
with this article, showing the results 
I obtained in performing some of the 
tests mentioned in the column. 

I was able to verify most of the test 
results, obtaining very similar times 
even though the tests were per- 
formed on an IBM PC/AT and not an 
XT. Because the limiting factor in I/O 
would be the disk’s physical charac- 


ph a en ae See 
Gregg Weissman, E-X-E Software S 'Vs- 
tems, 205 E. 78th St., New York, NY 
10021 


44 








by Gregg Weissman 


own BIOS disk han- 


teristics and not CPU speed, the tim- 
ings would be expected to be similar. 

The DOS COPY command in my test 
(Listing Four, page 101) ran in 9.7 sec- 
onds, compared to 9.8 seconds in Cor- 
tesi’s: close enough to consider the 
results identical. My interpreted BA- 
SICA test (Listing Five, page 101) ran in 
44.2 seconds of DOS time and 66 sec- 
onds total. Cortesi includes no figure 
for the time spent by DOS on the disk 
functions only. 

In the tests that called DOS from as- 
sembly language, Cortesi claims that 
“block sizes beyond 9K, one cylinder, 
don't give further improvement.” 
This is not what I found: In my tests 
(Listings Six, Seven, and Eight, pages 
102— 104), a block size of 9K, or 2400h, 
gave a result of 9.7 seconds, while 
block sizes of C000h through FEOOh 
(49,152 to 65,024 bytes) gave substan- 
tially lower times, leveling off at 
C000h at 7.09 to 7.14 seconds (plus or 
minus one clock tick). 

It could be that the block size at 
which performance levels off is a 
function of the disk hardware be- 
cause I obtained the same results with 
both PC DOS Versions 2.1 and 3.1 and 
could verify that the BIOS calling se- 
quences were essentially the same. 
There is no other way to account for 
Cortesi’s finding that performance 
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Execution 





did not improve past the 9K block 
size. 


The Answer to a Puzzle 

The reason Cortesi states that the DOS 
BIOS does not use the ROM BIOS for 
disk I/O, however, is based on the 
findings of an (unlisted) assembler 
program that reads the disk directly 
through the BIOS interrupt 13h. Be- 
cause this program was slower than 
the fastest DOS time, he assumed that 
DOS does not use ROM. I knew there 
had to be another answer. 

I tried my own assembler routine 
to read the requisite number of sec- 
tors directly, also using the ROM in- 
terrupt 13h. This appears in Listing 
One, page 94. There are only a hand- 
ful of logical ways to do this, so I sus- 
pect my program is very similar to 
Cortesi’s. My program also ran slow- 
er than DOS, timing out at 11.42 sec- 
onds. Because I knew DOs had to be 
using BIOS, I coded a short resident 
module to trap the BIOS interrupt 13h 
so I could see what DOS was doing as 
it happened. 

What I found is that DOS modifies 
the head settle time parameter in the 
table of disk variables that BIOS uses to 
control the NEC disk controller. The 
head settling delay is a simple do- 
nothing loop in the ROM BIOS, giving 
the read/write head and arm time to 
settle into position after a seek opera- 
tion is performed, before the control- 
ler attempts to read or write any data. 
Each time the disk has to move from 
one cylinder to another, this head set- 
tle delay will be taken. 

The absolute memory location 
0000:0078h contains a pointer to a ta- 


| ble of values that users can modify in 


order to accommodate different disk 
characteristics. One of the parame- 
ters is the head settle delay. 

The default head settle time on the 
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AT is 15 milliseconds when the sys- 
tem is initialized by BIOS, and PC DOS 
3.1 resets this to 1 millisecond. On the 
XT, it defaults to 25 milliseconds; PC 
DOS 2.1 knocks this down to 15 milli- 
seconds. These head settle times are 
required when writing disk data, but 
not when reading, as I discovered. 

When DOS reads from the disk, it 
sets the head settle time in the disk 
parameter block to 0. When the op- 
eration is complete, DOS restores the 
original value. Therefore, when Cor- 
tesi (and I) ran our assembler BIOS 
tests, the head settle time was set to 
the original default—in my case 1 
millisecond, and in his, possibly up to 
15 milliseconds. 


Two New Puzzles 

If I changed the settle time parame- 
ter to 0, as does DOS, my assembler 
timing went from 11.42 seconds 
down to 7.9—but this presented two 
puzzling problems. 

The first problem was easy: The 
new lower times were still greater 
than the DOS timings—the DOS tests 
consistently showed times of 7.09 to 
7.14 seconds, and those times includ- 
ed all the operating system overhead. 
With a little thought I realized that 
the motor start-up time must be con- 
sidered. The motor starts when DOS 
executes an OPEN function, which I 
was not counting in my comparisons. 

When I started the disk motor be: 
fore beginning the timing, the time 
required for the BIOS to read 16 cylin- 
ders went down to 6.8 seconds, the 
time Cortesi reports for the DOS INT 25 
function as the fastest possible (which 
is true). If you refer to the DOS timing 
figures, the OPEN calls all took about 2 
seconds (plus or minus 1 clock tick), so 
everything fits neatly together. 

Pay close attention to Cortesi's 
phrase “DOS sequential input can 
reach and sustain an input rate of one 
track per disk rotation’’—naturally 
the best performance possible. I'll ex- 
plain how and why this is so and 
show you how to achieve this your- 
self. 

The attentive reader may already 
have thought of the second, less trivi- 
al problem. The head settle parame- 
ter is supposed to indicate the num- 
ber of milliseconds of delay. 
Eliminating the delay on the AT by 
setting the count to 0 instead of 1 
should save 1 millisecond per seek- 
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to-track. The test reads 16 different 
tracks, so there should be an im- 
provement of 16 milliseconds, not 
more than 3 seconds. 

Further tests indicated that in- 
creasing the settling time past 1 milli- 
second resulted in no further deteri- 
oration of performance until the 
count passed 90, at which time I lost 
another 3-plus seconds, and so on. 


























































Settle Delay, 
Cnt & Millisecs: 
SettleCount: 
Delay time: 
Total calc. delay: 
SettleCount: 
Delay time: 

Total calc. delay: 
SettleCount: 
Delay time: 

Total calc. delay: 
SettleCount: 
Delay time: 

Total calc. delay: 
SettleCount: 
Delay time: 

Total calc. delay: 
SettleCount: 
Delay time: 

Total calc. delay: 
SettleCount: 
Delay time: 

Total calc. delay: 
SettleCount: 
Delay time: 

Total calc. delay: 
SettleCount: 
Delay time: 

Total calc. delay: 
SettleCount: 
Delay time: 

Total calc. delay: 
SettleCount: 
Delay time: 

Total calc. delay: 
SettleCount: 
Delay time: 

Total calc. delay: 
SettleCount: 
Delay time: 

Total calc. delay: 
SettleCount: 
Delay time: 
Total calc. delay: 
SettleCount: 
Delay time: 
Total calc. delay: 
SettleCount: 
Delay time: 
Total calc. delay: 


0.002258300 < Settle delay loop time as tested. 


Times: 

0 Totl: 6.662 

0.00 Wait: 6.612 
0.000 

1 Totl: 9.786 

2.26 Wait: 9.699 
0.036 

2 Totl: 9.786 

4.52 Wait: 9.661 
0.072 

4 Totl: 9.786 

9.03 Wait: 9.590 
0.145 

8 Totl: 9.786 
18.07 Wait: 9.450 
0.289 

16 Toti: 9.786 
36.13 Wait: 9.160 
0.578 

32 Totl: 9.786 
la2t Wait: 8.595 
1.156 

64 Totl: 9.786 
144.53 Wait: 7.457 
2.0138 

80 Totl: 9.785 
180.66 Wait: 6.890 
2.891 

88 Totl: 9.785 
198.73 Wait: 6.605 
3.180 

90 Totl: 9.786 
203.25 Wait: 6.536 
3.252 

91 Totl: 12.776 
205.51 Wait: 9.490 
3.288 

92 Totl: 12.975 
207.76 Wait: 9.658 
3.324 

120 Totl: 12.978 
271.00 Wait: 8.650 
4.336 

128 Totl: 12.976 
289.06 Wait: 8.376 
4.625 

255 Totl: 16.164 
575.87 Wait: 7.040 
9.214 


The solution appears easy now, but it 
took some work to arrive at it. 

I pored over the AT BIOS listing to 
find out if the head settle parameter 
is used in some other way in addition 
to the seek operation. The answer is 
no: There is no other use of this vari- 
able other than counting the number 
of 1-millisecond delays taken imme- 
diately after a seek. 


Table 1: Disk performance by head settle time 


45 


SPEEDING MS DOS 
(Continued from page 45) 


To eliminate any noise in my data 
caused by losing interrupts during 
processing and the coarse granulari- 
ty of the usual 18.2-tick-per-second 
interrupt clock, I coded a routine to 
access the AT high-resolution timer, 
which provides 1,024 interrupts ev- 
ery second. For those who are inter- 
ested, Listing Two, page 95, is the 


Settle delay loop time as tested: 


program used to access the AT clock. 

The high-resolution timings con- 
firmed the other results and also 
gave a more accurate figure for the 
delay loop as coded in the BIOS. Al- 
though the number of cycles in the 
delay instructions total approximate- 
ly 1 millisecond of CPU time, because 
of cycle-stealing memory refresh 
and other perturbations, the actual 
time for one iteration of the loop is 
actually about 2.25 milliseconds. This 


0.002258 
Settle Calc’ed Total Result Calc’ed 
Count: 1 Loop Timed: Waiting: 16*Dlays 
(Milliseconds) 
0 0.000 6.662 6.612 0.000 
1 2.258 r 9.786 9.699 0.036 BREAK POINT 
2 4.517 9.786 9.661 0.072 
4 9.033 9.786 9.590 0.145 
8 18.066 9.786 9.450 0.289 
16 36.133 9.786 9.160 0.578 
32 72.266 9.786 8.595 1.156 
64 144.531 9.786 7.457 2.313 
80 180.664 9.785 6.890 2.891 
88 198.730 9.785 6.605 3.180 
90 203.247 9.786 6.536 3.252 
91 205.505 é 12.176 9.490 3.288 BREAK POINT 
92 207.764 12,975 9.658 3.324 
94 212.280 12.970 9.330 3.396 
96 216.797 12.978 9.513 3.469 
104 234.863 12.978 9.223 3.758 
112 252.930 12.978 8.937 4.047 
120 270.996 12.978 8.650 4.336 
128 289.063 12.976 8.376 4.625 
174 392.944 . 16.166 9.666 6.287 BREAK POINT 
200 575.867 16.164 7.040 9.214 
260 587.158 : 19.350 9.674 9.395 BREAK POINT 
346 781.372 : 22.141 9.283 12.502 BREAK POINT 
* Analysis of breakpoints: 
Mean 6.662 Delta Settle 0.000 Delta 
Total 9.786 in 0.195 time 0.002 in 
Time 12.951 Total 0.198 delay 0.206 Delay 0.203 
for 16.165 Times, 0.201 for 0.393 time: 0.187 
break- 19.350 per tk: 0.199 Major 0.587 0.194 
points: 22.141 0.174 Breaks: 0.781 0.194 
>> Mean: 0.193 . >> Mean: 0.195 
Disk stats: Revolutions per head settle delay: 
RPM: 300 0.002 0.011 = 0 
RPS: 5 0.206 1.028 = 1 
SPR: 0.200 0.393 1.965 = 2 
(Seconds per rev.) 0.587 2.936 = 3 
0.781 3.907 = 4 


Table 2: Disk I/O speeds, 16-cylinder reads with different head settle time 


delay parameters 
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still could not account for the 3.5 sec- 
onds of performance improvement. 

Next I moved the BIOS code down 
into RAM so patches could be made 
and breakpoints set: It was impossi- 
ble to determine anything more 
from just timing the disk interrupt. I 
inserted a patch to time the subrou- 
tine that waits for the disk adapter to 
respond to the last command sent. 
This routine, called WAIT_INT in the 
BIOS, just loops until an interrupt is 
received from the adapter, after a 
command has been sent to the disk- 
controller chip. 


Results of My Tests 

I performed 60 timing runs consist- 
ing of 20 different settle time param- 
eters, run 3 times each. In each test I 


counted the overall time required to 


read the 16 cylinders and the total 
time spent in the WAIT_INT routine. 

Table 1, page 45, shows the means 
of the times plotted against the head 
settle time as specified in the param- 
eter block and as calculated accord- 
ing to my 2.25-millisecond figure for 
the delay loop. 

What is interesting to note in this 
table is that overall disk performance 
changes as a step function, not con- 
tinuously, and the times are constant 
over a wide range. Note also that the 
WAIT_INT time decreases as the head 
settle time increases, so the result is 
constant except at the breakpoints of 
2.26, 205.5, and 575.87 milliseconds of 
settle time. 

Within each range, the longer BIOS 
delays after a seek, the less time it 
takes for WAIT_INT to receive the in- 
terrupt from the controller, until the 
delay time passes a certain threshold. 
What is happening at that threshold? 
If you examine the differences be- 
tween each plateau, you will see that 
each jump in overall time is about 3 
seconds. If you divide the differences 
by the number of seeks (16) then you 
get a figure (0.18, 0.19, and so on) sug- 
gestively close to the time it takes for 
a 300-RPM drive to make one revolu- 
tion—0.2 seconds. The second jump 
in the step function occurs when the 
settling delay increases from 2 milli- 
seconds to 205 milliseconds, also very 
suggestive. 

From these results, I developed the 
hypothesis that the overall time is 
constant within each rotational peri- 
od of the disk. If a 1-millisecond delay 
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is taken immediately after a seek op- 
eration, subsequent processing must 
wait a full rotation before continu- 


ing. No further degradation occurs 
with increased delays until the delay 
equals or exceeds the rotational peri- 
od, at which time processing time in- 
creases again by the rotation rate. 
The longer the BIOS waits for head 
settling, the less time WAIT_INT waits 
for the rotation of the disk to com- 
plete. 

The data in Table 1, page 45, is in- 
conclusive, however, because there is 
no entry for 400+ milliseconds and 
beyond: The interval between 2 and 
204 milliseconds alone is not enough 
to prove the theory, and the test at 575 
milliseconds has increased the delay 
too much to verify the 200-millisec- 
ond period. 

Table 2 shows the results of addi- 
tional tests that confirmed the hy- 
pothesis. If you examine the table, 
you will see that the jump from 12.9 
to 16.1 seconds of processing time oc- 
curs at just about 400 milliseconds 
and from 16.1 to 19.3 at 600 millisec- 
onds. Final confirmation is given by 
the jump at 781 (close enough to 800) 
milliseconds. Intervening data points 
in the 600- to 800-millisecond range 
are omitted, but timings showed the 
same plateaus as the other data. 

Now we can see why DOS ‘can 
reach and sustain an input rate of 


one track per disk rotation.” The |, 


trick is that by skipping the head set- 
tle delay altogether, there is no wait 
for an additional rotation of the disk 
and no latency degradation. One mil- 
lisecond of delay is enough to force 
the:controller to wait for another 200 
milliseconds before the operation 
can complete. 


Other Points 
Returning to other points in Cortesi's 
column, it was simple to check more 
thoroughly into the problem of BASIC 
and disk I/O as outlined in the article. 
I found that indeed, as Cortesi writes 
(it’s even documented in the manual), 
BASIC uses a default disk buffer size of 
128 bytes. Increasing the buffer size 
can be done with a command-line 
switch: To specify a 1,024-byte disk 
buffer, the command is BASIC /S:1024. 
I tried the test program with a 
buffer size of 8,192 bytes, and BASIC 
took only 10+ seconds to perform its 
pos functions, as opposed to 44 sec- 
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Now for PC Users: 
Professional Ty pesetting Capability 





PCTxX brings to the personal computer user the ability to put any 
kind of information on paper in a professional, elegant manner. 

It brings the full power and flexibility of TeX implementations on 
mainframes to owners of IBM PC’s, AT’s and workalike computers. 


PCTxxX is widely used for formatting technical and mathematical 
material. It is also perfectly suited for producing professional-quality 
reports, manuals, even books. 


PCT.X offers a wide range of typefaces, and a wide choice of drivers 
which output the finished material on dot matrix printers (Epson, 
Toshiba), low-cost laser printers (Apple LaserWriter, Corona LP-300, 
HP Laser Jet) and graphics screen preview (Hercules, EGA). This 
ad was formatted by PCTgX and produced on a Corona LP-300. 


Join hundreds of satisfied PCTX users. Write or call us today. 


PCTgx: only $279. Dot-matrix drivers: $100. Laser drivers: $300. Preview 
(Hercules GC): $250. MF Medley (44 fonts, including Computer Helvetica): 
$100. Corona Laser Printer and PCTgX: complete $3395. System requirements: 
DOS 2.0 or later, 512K RAM, 10M hard disk. M/C, Visa accepted. 


Personal 20 Sunnyside, Suite H 
Mill Valley, CA 94941 
Inc (415) 388-8853 Telex 275611 


Trademarks: PCTpX, Personal TeX, Inc.; TeX, American Mathematical Society; IBM PC 
and AT, IBM Corp; LaserWriter, Apple Computer, Inc.; Hercules Graphics Card, Her- 
cules Computer Technology. 
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em Announcing a high-density, high-performance MC68010 VMEbus 
processor board—The A68VME 

> Includes on board RAM, ROM, extensive I/O including SCSI—a 
complete system in one VME slot 

> Board resident applications module—add more |/O without 
additional boards or slots 


> Full Alcyon software support—REGULUS, a Real-Time UNIX 
operating system and C68 optimizing C compiler 






5010 Shoreham Place 
San Diego, CA 92122 
(619) 587-1155 TWX: 5106004947 


a CORPORATION 


REGULUS is a trademark of Alcyon Corp. 


UNIX is a trademark of AT&T Q-BUS is a trademark of Digital Equipment Corp. 
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Make your PC or AT into a 


COMMUNICATING WORKSTATION 


Oya NAR toss 


Use ZAP, the Communications System for Technical Users 
COMPLETE Communications for PROGRAMMING and ENGINEERING 


EMULATION of graphics and smart terminals is combined with the ability to TRANS- 
FER files reliably, CAPTURE interactive sessions, and transmit MESSAGES while 
also being able to swap between your mini or mainframe session and your PC application. 
SUSPEND aline torun a PC application. Reconfigure features to fit the communications 
parameters and keyboard requirements of the host computer software. Complete technical 


documentation helps you understand and fit ZAP to your style. 


HIGHLIGHTS OF ZAP: 


@ Emulate TEKtronix 4010/14 and DEC VT 100, 102, 52 including 


variable rows and columns, windows, full graphics, even half tones. 


@ Reliable file transfer to/from any mainframes and PCs including KERMIT and 
XMODEM protocols plus you get a full copy of KERMIT. Transfer speeds ranging 
from 50 to 38,400 BAUD. Session control include printer dumps and save to 


disk. 
MACRO and Installation files (“scripts”) controllable by you. 


EMACS, EDT and VI “Script” files are included. ZAP is also used with other popu- 


lar software including graphics products like DISSPLA and SAS/GRAPH. 


CONFIGURABLE to communications, terminal features on the “other end’; 1, 2 
stop bits; 5,6, 7 or 8 data bits; parity of odd, even, none, mark and space; remap all keys 


including the numeric pad and standard keyboard, set any “virtual” screen size. 


Full PC/MSDOS access to run any command or program that will fit in your systems 


memory. ZAP takes less than 64K. 


9 Comm ports are supported by ZAP. Plus full color in text and graphics make use of 


the IBM color, EGA cards, or Hercules Monochrome. 


ONLY ; 
$85 Solution 
Full refund if not satisfied ystems 
during first 30 days. 


335-D Washington St. 
Norwell, Mass. 02061 
617-659-1571 
800-821-2492 
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Scrap your LINKER 
FASTER C 


Reliably: 
CUT Compile times (by 15% to 55%) 


CUT Testing times (by 12% to 37%) 


HOW: FASTER C keeps the Lattice C or C86 library and any other 
functions you choose in memory. It manages a jump table to replace 
the LINKER and immediately execute your functions. You can also 
CALL active functions interactively to speed your program debug- 
ging. It includes many options for configuration and control. 


“Automatic” support for new libraries by reading the .OBJ files 
makes support for new libraries quick and simple. 


AVAILABLE FOR PC-DOS, IBM-AT, 
AND ANY 256K MSDOS SYSTEM. 


ONLY $95. 
Full Refund i isfi e 
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onds with a 128-byte buffer. Because 
BASIC uses DOS for its file I/O, forcing 
the head settle time to 0 had no ef- 
fect: The minimum value is in effect 
whenever DOS performs BIOS disk 
read calls. 

All these results can be summa- 
rized as follows. First, there is no 
mystery, magic, or extraordinary 
cleverness involved in how DOS han- 
dles disk I/O, and it certainly uses the 
ROM BIOS. The magic goes away 
when all the facts are in, although 
there are new problems to solve. 

According to my findings, when 
performing file I/O through DOS, you 
can expect the best performance 
when you read a block size of more 
than C000h bytes. DOS reads blocks al- 
most an entire segment (64K) at a 
time when you use the COPY com- 
mand. Why settle for less (no pun in- 
tended) if you have the memory? 

When writing your own BIOS disk 
handlers using interrupt 13h, set the 
head settle time to 0 for all read oper- 
ations. It must be longer for write op- 
erations, but you can ignore the over- 
all impact the settling time will have 
on performance because you will 
catch the latency delay of 200 milli- 
seconds. Use the documented re- 
quired values for write head settling 
times. This has no effect when file I/O 
is performed through DOS because 
DOS takes care of the settling time pa- 
rameter already. 

You can, however, shave additional 
seconds from both your own disk I/O 
and DOS’s with the motor-start-delay 
parameter: Reduce this value to the 
minimum value that does not cause 
errors when you first access the disk. 
(I found no problems with a start-up 
delay of 0.) Listing Three, page 100, 
shows you how to set the head settle 
time and motor start-up delay in an | 
assembly-language program. 


DDJ 


(Listing begins on page 94.) 
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really helps or, for that matter, bothers you. In this hectic world of ours, however, it is often 
difficult to take the time to write a letter. This card provides you with a quick and easy way 
to correspond and, if you include your name and address, we may use appropriate com- 
ments in The Letters column. Simply fill it out and drop it in the mail. —Ed. 





Which articles or departments did you enjoy the most this month? Why? 








Comments or suggestions: 











Nane 


Address Oe 0 OO 





BUSINESS REPLY MAIL 


FIRST CLASS PERMIT NO. 756 MENLO PARK, CA 





POSTAGE WILL BE PAID BY ADDRESSEE 
Dr. Dobb's journal of 

P.O. BOX 27809 

SAN DIEGO, CA 92128 


BUSINESS REPLY MAIL 


FIRST CLASS PERMIT NO. 756 MENLO PARK, CA 





POSTAGE WILL BE PAID BY ADDRESSEE 
Dr. Dobb's journal of 

P.O. BOX 27809 

SAN DIEGO, CA 92128 


BUSINESS REPLY MAIL 


FIRST CLASS PERMIT NO. 790 REDWOOD CITY, CA 


POSTAGE WILL BE PAID BY ADDRESSEE 


Dr. Dobb's journal of 
501 GALVESTON DR. 
REDWOOD CITY, CA 94063 











NO POSTAGE 
NECESSARY 


IF MAILED 
IN THE 
UNITED STATES 


NO POSTAGE 
NECESSARY 


IF MAILED 
IN THE 
UNITED STATES 


NO POSTAGE 
NECESSARY 


IF MAILED 
IN THE 
UNITED STATES 








Postage Paid! 





-“Pro 
The first device independent, easy to use, microcomputer 
based image capture and processing system that 


puts image processing tools into the hands of the 
professionals who need it. 


imag 





With Image-Pro, image processing 
technology that was formerly available 
only on mainframes is now available on 
IBM AT’s and compatibles. Whatever 
your application, Image-Pro fulfills your 
requirements for analyzing and process- 
ing images. 


Image-Pro offers affordable, inter- 
active, and user friendly solutions 
for: 

e Image Analysis 

e Image Enhancement 

© Spatial Filtering 

e Area Measurement 

e Digitization, Storage and Retrieval 

e Image Editing 

© Half Tone Printing 

e Report Generation and Annotation 


The heart of the solution is the 
Image-Pro Software. This software 
includes: 

1. A stand alone interactive, image 

processing program. 

2. An icon-based, image editor. 

3. A library of powerful image pro- 

cessing subroutines. 

4. A slide show and batch printing 

program. 

With Image-Pro, information from 
documents, photographs, x-rays, 
satellites, etc., can be electronically 
captured, processed, analyzed, stored 
and retrieved for future reference. 


Image-Pro Workstation 

The Image-Pro Workstation includes: an 
IBM AT or compatible; precision video 
camera, image capture board, video 
display device, high resolution monitors, 
and a color or black and white printer 
(including laser printers). 


Image-Pro- 
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2. Hi-Pass 

3. Vertical 
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And the Image-Pro software is 
transportable between Workstations 
configured with different imaging and 
graphics components. 


Image-Pro Subroutines 

Image-Pro subroutines provide software 
developers and OEMs with all the tools 
needed to quickly implement custom- 
ized imaging solutions. 


HALO Software Development 
Environment 

With HALO, a complete programming 
environment is available as a com- 
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plementary package to Image-Pro. 
HALO is a powerful toolbox of over 
170 graphics primitives that is an 
established standard for graphics in the 
IBM PC and compatibles marketplace. 

Some of HALO’s extensive functions 
include: point, lines, arc, circle, ellipse, 
image compression, rubberbanding, 
polygon fill, animation, windowing, color 
management, curve fitting, world coor- 
dinates, etc. 

HALO supports the most popular pro- 
gramming languages, graphics controller 
cards, and input and output devices and 
includes LEARNHALO, an interactive, 
computer-aided tutorial. 
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events, some people have found 

it necessary to write Pascal code 
that could be ported between dia- 
lects of Pascal that differ from ma- 
chine to machine. This task cannot 
be accomplished just by writing ‘‘va- 
nilla’’ code to a maximal degree, as 
there are inevitably syntactical and 
semantic differences between dia- 
lects. At QCAD, we have developed a 


I: the course of programming 


technique that, in conjunction with | | 


vanilla code, allows translation from 
one dialect to another to be per- 
formed automatically. Generally, 
when a file of program text needs to 
be translated to a new dialect, it also 
needs to be transmitted to a physical- 
ly separate computer, and so our 
translation utility exists in two forms: 
a stand-alone translation utility and a 
combination translation/transmis- 
sion utility. 


Finding the Denominator 

The primary task is to reduce func- 
tions and procedures to common de- 
nominators—that is, if a function does 
not exist in one dialect, it must be writ- 
ten for that dialect using the dialect’s 
own primitives. This could be a simple 
renaming. Consider the following two 
functions, for example: 


Turbo Pascal: 
copy(string, location, length) 
VAX Pascal: 
substr(string, location, length) 


As it happens, these functions are 
semantically identical, only the 
names have been changed to confuse 
the unwary. If we have written 
some code in Turbo Pascal, then we 
simply create a copy function for 
VAX Pascal: 





© 1985 OCAD Systems Inc., 1164 Hyde 
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Automatic Porting 
Between Pascal Dialects 


by Michael J. Sorens 


_DIALATE converts one 
_ dialect of Pascal to 


another, provided 
programs are written 
according to the 
guidelines. 


function copy(STR: string255; 
WHERE, LEN: integer): string255; 
begin 
copy := substr(str, where, len); 
end; 


Thereafter, we can use the copy 
function in either Turbo Pascal or 
VAX Pascal. Of course, we want the 
above definition of copy to exist only 
in the VAX environment because it 
will generate compilation errors in 
Turbo; we will see how to selectively 
compile this kind of entity shortly. 

A second case might be this: In eval- 
uating a logical expression, HP Pascal, 
for example, has a compiler option to 
do only partial evaluation (a la © in 
which an expression is evaluated 
only until the point at which its result 
is determinable. C programmers use 
this to establish and avoid side effects. 
(It is quite a useful thing to have, but, 
alas, having it in only one Pascal dia- 
lect makes life difficult.) 

If the function foo changes some 
global variable y, for example, then 
(false and foo(x) ) will not change y if 
the dialect uses partial evaluation. 
This is because of the way the Bool- 
ean AND operates. Both terms must 
be true for the conjunction to be true. 


the first term false is false, we do not 
need even to look at foo(x) to deter- 
















mine the result. Without the partial 
evaluation feature, foo(x) will al- 
ways be evaluated, potentially yield- 
ing differing results. 

A second example might be a test 
such as 


while (count <= length(str) ) and 
(stricount] = ’X’) do... 


which is a valid statement with par- 
tial evaluation but can cause a run- 
time error without it. Why? Well, as 
long as count is less than or equal to 
the length of the string str, there is no 
problem. When count becomes one 
larger than the length of str, howev- 
er, referencing str[count] may cause 
a run-time error, depending on 
whether range checking is enabled 
for a particular compiler. 

Therefore, we must modify the 
code in which results might vary de- 
pending on whether partial evalua- 
tion is available. This could be done 
by introducing a two-step evaluation. 
That is, rather than if (false and 
foo(x) )then..., we substitute if false 
then if foo(x) then... , which guaran- 
tees an equivalent partial evaluation. 
The while loop requires introducing 
some ugliness. We need a Boolean 
variable—call it done—which we ini- 
tialize to false. Then, the code might 
be 


while (count <= length(str) ) and 
(not done) do begin 
done := (str[count] = ’X’); 
if not done then... 


The simple elegance and power of 
partial evaluation begins to shine 
through, no? 

A more cumbersome reduction in- 


| volves string comparisons. In HP Pas- 
Scanning from left to right, because | 


cal or Turbo Pascal, you could com- 
pare strings s1 and s2 merely by 
interposing a relational operator— 
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for example, (s1 < s2) or (s1 = s2). In 
VAX Pascal, however, only strings of 
the same length can be compared 
(not strings of the same maximal 
length but strings of the same length 
at the moment of comparison). Thus, 
we need to introduce an added func- 
tional level in all three Pascals so that 
the code can be identical. We create 
the function StrCmp (see Table 1, 
below). Then, if we have existing 
code that needs to be retrofitted, we 
must change occurrences of (s1 = s2) 
to (strcmp(s1, s2) = 0) and likewise 
for the other relational operators. 


Make That Code Disappear 
At some point, there will be pieces of 
code that must be seen by one compil- 
er but must be hidden from another. 
Enter DIALATE. DIALATE—a combina- 
tion of the words dialect and trans- 
late—converts one dialect of Pascal to 
another, provided a program text file 
has been set up according to the 
guidelines about to be discussed. 

We introduce a metanotation to be 
used in any Pascal we are interested 
in. This is just a notation that is in 
some sense “above” the Pascal code 
in that our translator will be looking 
only at the metanotation and not at 
the Pascal text itself. In our metanota- 
tion, we have metabrackets, which 
are the only constructs that DIALATE 
looks. for: 


{ @x } opening metabracket for 
dialect x 
{@} closing metabracket 


We use the curly braces { and } as 
the basis of our dialect notation be- 
cause they already have the capabili- 
ty of hiding text from a Pascal com- 
piler—the simple comment. DIALATE 
scans for comments that immediate- 
ly begin with an @ symbol, indicat- 
ing that the comment is a special, dia- 
lectic comment. Immediately 
following the @ can be one or more 
dialect designations. We currently 
use the following conventions: 


T—tTurbo Pascal (IBM PC) 
V—VAX Pascal (VMS) 

H—HP Pascal 

A—Apple Pascal (Macintosh) 


Any piece of code that cannot run on 


all relevant machines must be sur- 
rounded by metabrackets. DIALATE 
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inserts and removes the right curly 
brace of the opening metabracket in a 
judicious manner so that the compiler 
‘sees’ only valid language constructs. 

Let’s look at an example. Consider 
opening a file for input in Turbo Pas- 
cal and in HP Pascal: 


Turbo Pascal: 
assign(MyFile, FileName); 
reset(MyFile); 

HP Pascal: 
reset(MyFile, FileName); 


Because there are significant differ- 
ences, it is perhaps wise to create a 
procedure OpenInputFile that can be 
used in both Pascal dialects. Here is 
what the procedure will look like in 
Turbo Pascal: 


(1) procedure OpenInputFile 


(var F: text; 
NAME: string80); 
(2) begin 
(3) { @T } 
(4) assign(f, name); 
(5) reset(f ); 
6  {(@) 
(7) { @H 
(8) reset(f, name); 
9  {@} 
(10) end; 


Examine the position of each of the 
curly braces carefully. Notice that in 
line 3 there is a } but that in line 7 
there is not. Thus, lines 4 and 5 are 
active code, while line 8 is passive 
code. Lines 6 and 9 are closing meta- 
brackets that never change. The { in 
line 6 begins a comment that hides 
the @ character, while the { in line 9 
is ignored because it is already inside 





















var Result: integer; 
begin 


end 
end © 


end; 


Table 1 


“function StrCmp(S, T: string80): integer; 
{return —1 ifs<t; Oifs=t; 1ifs>t} 


if length(s) < length(t) then begin 
result := StrCmp(s, copy(t, 1, length(s) 
if result = 0 then StrCmp := —1 else 


else if s = t then StrCmp := 0 
else if s < t then StrCmp := 
else if s > t then StrCmp := 1 


a comment. Now let’s run the proce- 
dure through DIALATE, converting it 
to HP Pascal code: 


(1) procedure OpenInputFile 


(var F: text; 
NAME: string80); 
(2) begin 
(3) {@T 
(4) assign(f, name); 
(5) reset(f ); 
6  (@) 
(7) { @H } 
(8) reset(f, name); 
9  {@} 
(10) end: 


The only difference is that the } in 
line 3 has gone, and there is a new } 
in line 7. This has reversed the active 
and passive sections of code. Hence, 
to write a piece of automatically 
translatable code, decide which dia- 
lect you wish to write in and use the 
appropriate metabrackets. 

The technique is extensible to mul- 
tiple machines with a concise nota- 
tion. Take, for example, a function to 
find the location of a pattern string 
within some other string. In Turbo 
Pascal and HP Pascal, this function is 
called pos, while in VAX Pascal it is 
called index. We could then write a 
compatibility function called index to 
be used in Turbo or HP Pascal or one 
called pos to be used in VAX Pascal. A 
third alternative, though, is to writea 
function with a new name, perhaps 
LocateSubString, to be used in all 
three languages. Stylistically, it might 
be better to use a very different 
name so that there is no chance of 
confusing the name with some other 
valid language construct. As it hap- 








else if length(s) > length(t) then begin a 
result := StrCmp(copy(s, 1, length(t) ), t); | 
if result = 0 then StrCmp := 1 else StrC 


—-1 
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FoxBASE. 


The DBMS That 


And Multi-user. 





PASCAL PORTING 
(Continued from page 51) 


pens, the functions pos and index do 
precisely the same thing, though 
their parameter order is different, so 
we do not have to write much code. 


(1) function LocateSubString 


(Object, 

Target: string80): integer; 
(2) begin 
(3) { @HT 


(4) LocateSubString := 
pos(object, target); 





Speed. 


Bridges The Gap 
Between Single-user 


aI aes 


FoxBASE is much more than a relational 
database management system. Written in C, 
FoxBASE is an extremely portable interpreter/ 
compiler. Now you can port from one machine 
or operating system to another without changing 
your applications. And this portability protects 
your investment in programs by insuring their 
use in future machine and operating system 


environments. 








Unsurpassed Program Development 


FoxBASE™ uses a state-of-the-art B+ Tree index 
structure for quicker, more efficient data access. 
A sophisticated virtual storage technique 

WTO ESSE MAD LUre] lem La aSes\ TOM a [Oc 
works to insure that frequently referenced 
programs are retained in memory in compiled 
form. What's more, FoxBASE provides automatic F + 

8087/80287 math coprocessor support for sispesrsans halerael iyi ea est 
ultraquick program execution speed—as much 
as six times the speed of dBASE IIS 


(5) {@} 

(6) <{(@v} 

(7) LocateSubString := 
index(target, object); 


(8) {@} 
(9) end: 


We can see that the above function is 
written in VAX Pascal because line 7, 
the VAX code, is active. Line 4 is passive 
code that is for both the HP and the 
Turbo dialects because line 3 has both 
a T and an H. When translated to ei- 
ther of these dialects, line 4 becomes 
active, while line 7 becomes passive. 


iia cet ie Pag a pe A es a te oe 


WISER 


NLS Salem 


FoxBASE is both source language—including full 
macro usage—and data file compatible with the 
WSN RCL MEIC Mm LTS TOT 
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file-locking and record-locking capabilities. Use 
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terminal. And, with some versions, a two billion 
Tmo (ome) 10 
Multi-user Versions: 

Xenix® $995. MultiLink™ $995. 

IBM-PC NET™ $995. 
Single-user Versions: 
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Case in Point 

One final twist has precipitated out 
of the Babel-like differences in Pas- 
cals, and that is the else clause of a 
case statement. Some Pascals, such as 
Turbo, use the keyword else to indi- 
cate any cases not explicitly enumer- 
ated. Other Pascals, such as VAX, HP, 
and Macintosh, use the keyword oth- 
erwise. We can certainly handle this 
discrepancy using our standard me- 
tanotation described in the previous 
section. A typical case statement 
might look like this: 


case SelectionChar of 

R: Runlt; 

'P’: ProcesslIt; 

J Abe EditlIt; 

{ @T } else 

{@HVA otherwise 
writeln( Invalid selection 

character); 


{@} 
{@} 


end { case } ; 


This can quickly become an annoy- 
ance, though. Because there is no way 
to make some kind of generic func- 
tion that handles all case statements 
(as we did with OpenInputFile), we 
must use the metabrackets every time 
we have a case statement. Or rather, 
we would have to if DIALATE didn’t 
have a better solution. 

What we would like to do is have 
the translator automatically convert 
an else to an otherwise if we are going 
from Turbo to either HP, VAX, or Mac- 
intosh Pascal and convert an other- | 
wise to an else if we are going in the 
converse direction. But wait, what 
about the oft-found if... then 
... else... statement? How will we 
know if an else belongs to an ifor toa 
case? 

What we have chosen to do is have 
a special ELSE-OTHERWISE conven- 
tion. In Turbo Pascal, we write ELSE 
to denote an else of a case statement 
and else to denote an else of an if 
statement. In our other Pascals, we 
write OTHERWISE to denote an other- 
wise of a case statement and else to 
denote an else of an if statement. 
That is, the case clause—whatever it 
is called—must be in uppercase let- 
ters, while the if clause must be in 
lowercase letters. 


Discussion 

This dialect translation technique has 

minor disadvantages. The foremost is 
a ee re eh A Se 
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that you must have all metabrackets 
balanced and correct, otherwise you 
might hide too little or too much code 
from the compiler. This might cause 
compilation errors, but it also might 
not, possibly creating subtle bugs. If 
we accidentally made the VAX code 
above into passive code, for example, 
then the LocateSubString function 
would never be assigned a value. This 
could cause random or unpredictable 
results in the program. On the other 
hand, if we made both assignments 
active, a compiler should complain 
about the unknown function index or 
pos, depending on which machine 
the code is compiled. It takes a little 
getting used to, but typing correct me- 
tabrackets is, after all, no more diffi- 
cult than typing correct syntax in a 
programming language. 

Second, it is not possible to put actu- 
al comments inside a region that is 
metabracketed. This may cause com- 
pilation errors when the entire re- 
gion is supposed to be hidden because 
the closing comment bracket could 
inadvertently reactivate a portion of 
the hidden code. This is most insid- 
ious, however, when it does not cause 
compilation errors, as, for example: 


procedure DUMMY; 
begin 
{ @H 


} 
:= 5; {some global variables } 
1 


The above code, as written, will 
work fine with the Turbo compiler. 
When we translate it to run with HP 
Pascal, however, we will get the 
wrong value for b because the clos- 
ing } of the ‘‘real’”’ comment will pre- 
maturely close the comment created 
by the metabrackets. 

The dialect translation technique 
discussed in this article is an effective 
and rapid way to work in several dif- 
ferent Pascals with virtually the 
same program text. It may seem 
awkward at first, but you can readily 
get used to the style. And for those 
who need to work with more than 
one dialect or more than one ma- 
chine, the tool may prove invaluable. 
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DIALATE was developed because of a 
perceived need at OCAD. We manu- 
facture a large software package (a 
parser generator) that runs on the 
machines discussed above; DIALATE 
allows us to keep the same code on 
all the machines. 

Should there be any readers who 
are so amazed by the technique re- 
vealed in this article (for the first 
time anywhere), I will gladly supply 


both object and source code for DIA- 
LATE for a mere $10.24 (a kilopenny) 
to cover diskette, postage, copying, 
and so on. I will also be happy to tell 
you about some of the neat software 
tools that OCAD sells for real money. 
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LETTERS 


LISTING ONE (Text begins on page 8) 


[RIK TTT TT TTT TTT TTT TK KERR / 


/* 

/* Bose-Nelson Sort - Recursive Version 
/* 

7* by R J Wissbaum 

/* 15553 E Wyoming Dr - H 
= Aurora, CO 80012 
/* 

/* Reference: 

yf? Dr. Dobb's Journal 

/* September 1985 (#107) 
z= Page 68 

/* 

/* 


#include "STDIO.H" 


int count = 0; 


main 


( argc, 


argv ) 


int argc, *argv; 


1 Sone. oe 


char arg(255]; 
if ¢ arq¢ <2 ) 


{. printf 


( “USAGE: bose5 n >outfile \n" ); 


exit (); 


} 


else 


{ getarg( 1, arg, 


255, argc, argv ); 


n = atoi( arg ); 


Lt 


bosesort 
printf 


} 
} 


bosesort(n, 


( n<O ) n = -n; 
{ 2. ta’. te S255 
( "There were %d swaps \n", count ); 


le Ms Se FD 


=/ 
ae 
*/ 
=; 
wy 
*f 
=F 
ee 
of 
fd 
ay 
mf 
a 


int fis: Tp Rs Js VF 
(, int: a, bs 
switch (n ) 
{ 
case. 0: ( /*, pringt ( *}\a" } 3: 47 
} 
break; 
ease 1: { /* printf ( “swap (, %d; 4d)7,\n", J, % V5 -4/ 
count++; 
} 
break; 
Gase- 2?. {| AZ ( x t= 1) 
{ “@ee-( B.7 2-39 
bosesort’ € 3, 4,0 a (Leap, tx-ad.) 3 
bosesort ( 2, ({it+a), (x-a), 0, O )3 
bosesort ¢'2; 1, ‘a, 0,°0° 37 
} 
} 
break; 
ease 3? a et 2 L248 
if (-ev@n-1-2.)-) Boe Ly +. 3) 7-23 
else B= (y 72% 
if ( (x == 1) 6&6 ( y == 1) ) bosesort (1, i, j, 0, 0); 
else if.t ( mee Ly: 66 ( ye 2) >) 
{ 
bosesort (1, i, j, 0, 0)? 
beosesore. 1:3, hi (342) .-07 -0°%% 
} 
else if ( (x == 2) && ( y ==1) ) 
{ 
bosesort’ -{:3.. {itl).~ }, 6, 0 Je 
bosesort...t.t7 44. jo Oe 0 Fs 
} 
else if ( ( x !=@ 0) €6€ Cy != 0) ) 
{ 
bosesort ( 3, (ita), (x-a), j, Db)? 
bosesort ( 3, (ita), (x-a), (jtb), (y-b) ); 
bosesort ( 3.) isa. jr.) 
} 
} 
break; 
default: { 
printf ( "FATAL: Error in stack \n" ); 
exit. {3 
} 
break; 
} /* End of WHILE loop */ 
} /* End of BOSESORT «/ 
even ¢ x ) End Listing 
LAE LS 


fretusn 2c 2 i 


C1 Gt ese 
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Byte Magazine called it. 


‘CIARCIA’S 
SUPER 
SYSTEM. 






The SBI80 
Computer/Controller 


Featured on the cover of Byte, Sept. 1985, 
the SB180 lets CP/M users upgrade to a 
fast, 4” x 7/2” single board system. 





e 6MHz 64180 CPU 


(Z80 instruction superset), 256K RAM, 
8K Monitor ROM with device test, disk 
format, read/write. 
e Mini/Micro Floppy Controller 
(1-4 drives, Single/Double Density, 
1-2 sided, 40/77/80 track 3%} 5%" 
and 8”’ drives). 
Measures 4” x 7%"' with mounting holes 
One Centronics Printer Port 
Two RS232C Serial Ports 
(75-19,200 baud with console port 
auto-baud rate select). 
Power Supply Requirements 
+5V +/-5% @500 mA 
+12V +/- 20% @40mA 
ZCPR3 (CP/M 2.2/3 compatible) 
Multiple disk formats supported 
Menu-based system customization 





$B 180-1 
SB180 computer board w/256K 
bytes RAM and ROM monitor 
eManteisaei id qedkat lescenaad tegen’ $369.00 


$B180-1-20 
same as above w/ZCPR3, ZRDOS 
and BIOS source............. $499.00 


-Quantity discounts available- 





new 
COMM180-M-S 


optional peripheral board adds 
1200 bps modem and SCS! 
hard disk interface. 





TO ORDER 
CALL TOLL FREE TELEX 
1-800-635-3355 643331 


For technical assistance or 
to request a data sheet, call: 


1-203-871-6170 


es Micromint, Inc. 
25 Terrace Drive 


Vernon, CT 06066 
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Put More C CHEST 


UNIX _ | LISTING SIX (Text begins on page 14) 
Your C. ee 


1 char *skipto(c, p, esc } 


Unitools $99 M 2 Ses ee ee 


MAKE, DIFF and GREP ; oe int Cc, esc ; 


These versatile UNIX-style utilities put 5 /* Skip to c or to end of string. If c is preceeded by 
power at your fingertips. MAKE, a 6 * the esc character it is skipped over. 
program administrative tool, is like © : */ | 
having an assistant programmer at your 9 while( *p && *p !=c) 
side. DIFF compares files and shows 10 { 
. + * '= 
you the differences between them. re BE ot ae Abies 
GREP can search one or many files 13 . 
looking for one pattern or a host of ih Es else if ( *++p ) /* skip over escaped characters */ 
patterns. 15 ptt; 
16 } 
1 
18 return (p); 
19 } 





“Z’ $99 
A Powerful “‘vi’’-type Editor: 

Similar to the Berkeley ‘“‘vi’’ editor, 

“Z's” commands are flexible, terse, 

and powerful; macro functions give you 

unlimited range. Features include LISTING SEVEN 
“undo,” sophisticated search and re- 
place functions, automatic indentation, 


End Listing Six 








C-tags, and much, much more. 1 /* 
ae 2 * DIR.H 
3.2 #defines and typedefs needed to talk to the routine dir(). 
ee: A pointer to the DIRECTORY structure is passed to dir(). 
PC-LINT $99 Ee DIRECTORY structures are created by mk dir() and deleted with 
~ : = i G:. * del dir(). 
Error Checking Utility oe gk 7s is 
A LINT-like utility that analyzes pro- 8 : On entry: eaiinaiocl eee 
grams and uncovers bugs, quirks and Ms : dirv is the first of an uninitialized array apicte er 
inconsistencies. Detects subtle errors. St lastdir should be initialized to point at dirv. 
Su rts large and small memory mod- as Oe maxdirs is the size of the above 
Si Eas sles error messages id $3 nfiles 
i ickiv~ His lots of oak 14 * ndirs 
executes quickly. Has lots o SP 10nS 15 * nbytes is the total file count, the total directory count 
and features that you wouldn’t expect 16 * and the total byte count. These will be incremented 
at this low price. Fi’. = aS appropriate and are usually set to 0 before 
ait ins 18. -* calling dir(). 
Aya 19 * width should be initialized to 0 before calling dir(). 
he, eS va a. * vol_ label is undefined on entry to dir(). 
< y Es ZL # longf is 1 if entrys are to be printed in long format 
SunScreen $99 Wad 225% files is 1 if files are included in the list. 
Laenrivet'S Utili NES eae dirs is 1 if directors are included in the list. 
W-priced creen ity ' 2a. * graphics is 1 if directories are highlighted with boldface. 
This versatile graphics package easily 25 * hidden is 1 if hidden files are to be included in the list. 
creates and modifies formatted screens, 26. * path is 1 if the path name is to be included in the list. 
validates fields. su functi Cee label is 1 if you want to get the volume label 
a a elds, eae Se. ee 28°. * exp is 1 if you want the contents of a subdirectory to 
color and monochrome cards. With li- 29 * be listed rather than the directory name when. This 
brary source SunScreen is $199. 30 * is only looked at if no wild cards are present in 
oat. the file spec. 
32.2% sort is 1 if you want the list sorted. 
Compatible with all leading MS/ oe : ; 
z 34 * all other fields are ignored. On exit the structure will have been 
PC-DOS C compilers. 35 * updated as follows: 
36 * 
33. -* lastdir will be incremented to point at the last entry added 
38” to the dirv table. 
SPECIAL OFFER: 39 * maxdirs will be decremented to reflect the added entries. 
Unitools, “Z.” 40 * nfiles is the number of added entries which are files. 

’ QT ndirs is the number of added entries which are directories. 
PC-LINT and Sun- 42 * Note that the equivalent of argc can be derrived by 
Screen All for only 43 adding ndirs and nfiles together. 

44 * nbytes will have the total size in bytes of all files added 
45 * to dirv. This number is the number of bytes actually 
46 * occupied by the file, ie. the size returned by DOS ‘ 
47 * rounded up to the nearest multiple of the disk's 
48 * cluster size. 
: 49 * vol label will hold the volume lable provided that "label" was 
To order or for information call: AY oes. * set on entry. 
; 51 . width will hold the length of the widest entry added to dirv 
* 


a oO 
52 
ey all other fields will have the same values they had on entry. 
. a. *f 
. 55 
56 typedef struct 


57 { 
1-800-TEG. WARF 58 char **lastdir /* Most recent addition to dirv */ 
ay, 59 int maxdirs : /* # of free slots in dirv */ 


(In NJ call 201-530-6307) 60 int nfiles : /* # of used slots that are files */ 
61 int ndirs : /* # of used slots that are directories */ 
62 long nbytes ; /* byte count of files t/ 
63 char vol_label[12]; /* volume lable if requested */ | 


UNIX 1s a regstered TM of Bell Laboratones, MANX AZTEC TM Manx Software Systems. Inc PC 
LINT TM GIMPLE software. SunScreen TM SunTec. MS-DOS TM Microsoft i, 
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64 unsigned width : 7; /* Width of widest element in dirv */ 
65 
66 /* Various flags control how dir works: */ 
67 unsigned longf : 1; /* Use long format for entries *7 
68 unsigned files : 1; /* Include files in list */ 
69 unsigned dirs : 1; /* Include directories in list ny 
70 unsigned graphics : 1 ; /* Use graphics around directory names */ 
71 unsigned hidden : 1; /* List hidden files */ 
72 unsigned path : 1; /* List complete path if given *] 
73 unsigned label : 1; /* Load vol_label with volume label =f 
74 unsigned exp : 1; /* Expand sub-directories my 
75 unsigned sort : 1; /* Sort added entries ne 
76 
77 char dirv[1]); /* The first of the dirv entries st 
78 } 
79 DIRECTORY; 
End Listing Seven 
1 #include <stdio.h> | 
2 #include <getargs.h> 
3 #include <mydos.n> 
4 #include <dir.h> 
5 
Rm OR + 
7 * DIR.C: An MSDOS directory access function. | 
Bik | 
9 * (c) Copyright 1985, Allen I. Holub. All rights reserved. | 
Rm + 
Li. *- 11/22/85 Modified so that the total amount of disk space used | 
ji (ie. # of clusters) is put into the total, rather | 
Lo. than the file size. | 
get ge gee ee ae ede Te Number O 
eee umber One 
16 = 
17 /* ROUND(n,u): if n is an even multiple of u, evaluate to n, else in Performance 
18 * round n up to the next even multiple of u. 
To FF 
: 68010/68000 
21 #define ROUND(n,u) ( !((n) % (u)) ? (nm) =: (((n) / (u)) +1) * (u)) 
23 Coprocessor fo 
zi #define BOLDFACE "\033[1m" /* An toct bold f ms Op ce or r 
efine ’ . si esc sequence to turn bo ace on 
25 #define ALL OFF "\033[Om" /* " attributes off */ IBM/AT/XT/PC- 
26 
27 #define ATTRIBUTES (READONLY | DIRTY | SYSTEM | HIDDEN | SUBDIR) Sm 
28 #define iswhite (c) ((c) == ' ' |] (c) == '\t') 8/10/12. z No Wait States 
29 
0. [tanned ‘/ $4295 ary. 1 
31 
32 extern char *calloc (unsigned, unsigned) ; “ In seme ire. . FEATURES 
33 extern char *cptolower (char*, char*) ; * In /src/tools/cptolow.c * e 1-2 MB RAM (1MB Standard 
34 extern char *cpy (char*, char*) ; /* In /src/tools/cpy.c */ © 16K-64K ath ) 
35 extern int dos (REGS *); /* In /src/tools/dos.asm */ © 2-8 Serial Port 
36 extern void gregs (REGS *); /* In /src/tools/dos.asm */ “6 verlal Forts pork 
37 extern char *malloc (unsigned) ; /* In standard library */ Async/Sync/Bisync Communications 
38 extern char *next (char**,int,int); /* In /src/tools/next.c */ e Battery-backed Real Time Clock 
39 extern void ssort (char*,int,int,int (*) ())7/*in /src/tools/ssort.c */ e Battery-backed 2K-8K RAM 
40 extern int stroemp (char*, char*); /* in standard library =f e 2 Parallel Ports 
PEALE RTS MEN RAS NS So by LPT RCS a Set Meee e e 68881 Math Coprocessor 
a fe ME PE pe ¢ Memory-mapped Dual-port BUS 
44 static unsigned Longfmt = 0; /* True if we're using long format. This ¢ 3-9 Users Per Board (3 Standard) 
45 * has to be global for the comparison e Up To 16 Boards Per AT/XT/PC 
46 * routine used for sroting to work. e Can Operate As Standalone Processor 
sid SOFTWARE 
49 static unsigned Cluster size; /* Number of bytes per cluster on eee ae UNIX-like Multi-user OS) 
50 * requested disk. 
5] */ e Software selectable OS including concurrent 
52 PC DOS/0S-9 or CPM/68K operation 
53 | Rm a a ey e Support Module for IBM Graphics 
54 /* Do a DOS system call using the dos() routine et e High-speed Local/Global Disk Caching 
59 e Basic, Pascal, Fortran, C, and COBOL 
56 #define DOSCALL(id,regs) { regs.h.ah = id ; dos( &regs ); } sinless ett bagless 
37 Sess sr paesrsomats Sioa Uxesanee Tanase 
GQ Bm */ : 
59 
60 static int find _first( filespec, attributes, regp } 
61 char *filespec ; 
62 short attributes; 
63 register REGS *regp; TL S t 
4 ( 7 (StEMS _ 
65 /* Get directory information for the indicated file. 
66 * Ambiguous file references are ok but you have to use 
67 . find next to get the rest of the file references. 
68 ~ In this case, The regs structure used by find first 
69 * must be passed to find_next. 0 is returned on success, 
70 * otherwise the DOS error code is returned. su OanPiae ecu ma ers Se eee 
71 af est: _ Jennifer, Suite 105, Fresno, : 
72 East: 67 Grandview, Pleasantville, NY 10570, 914/747-1450 


Distributor: Telemarketing Services, Inc. 
(Continued on next page) 1897 Garden Ave., Eugene, OR 97403, 800-874-2288 


Circle no. 173 on reader service card. 
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DeSmet 






MACINTOSH ™ 
DEVELOPMENT 
PACKAGE 


*150 


Includes Shipping 









Runs on 128K and 512K Macintosh 


= Produces FINDER/SHELL 
applications 


= Dynamic OVERLAY support 


Full K&R C Compiler 
= Native Code Compiler 
= In-line asm directive 
= [EEE S/W Floating Point 


Assembler, Linker, and Librarian 
Machine Code Debugger 
Source Code Editor 


“SHELL” Interface 

= Environmental Variables 
Wild-Card Expansion 
= Many Built-in Functions 
= Command History 
= Runs Any Application 


>120 Function STDIO Library 


>450 Function Macintosh ROM 
Library 


360 Page Manual 
RAM Disk 


Macintosh is a trademark licensed to Apple Computer, Inc. 


























oh 


i |] Please Send Information. 
[_] Send Macintosh Development Package 


Check # Enclosed 





SHIP TO: 








ZIP 


WARE 


CORPORATION 


P.O. BOX C 
Sunnyvale, CA 94087 
(408) 720-9696 


All orders shipped UPS surface. California residents 2 
add sales tax. Canada shipping add $5. elsewhere add 
$15. Checks must be on U.S. Bank and in U.S. Dollars. 
Call 9 am—1 p.m. to CHARGE by VISA/MC/AMEX. 


Street Address: 505 W. Olive. #767. Sunnyvale. CA 94086 
Se S27 Go ae el OR Ge ee ee ee ee 





L. 
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C CHEST 


LISTING E IGHT (Listing continued, text begins on page 14) 


73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
Lis 


(char) FINDFIRST ; 
(short) filespec 
attributes - 


regp->h.ah 
regp->x.dx 
regp->x.cx 


return (int) ( (dos(regp) & CARRY) ? regp->x.ax 


find next ( regp ) 


Get the next file in an ambiguous file reference. A 
* call to this function must be preceded by a 

* find first call. The regp argument must be the 

* same register image used by the find first call. 

* O is returned on success, otherwise the error code 
* generated by DOS is returned. 


regp->h.ah = FINDNEXT ; 


return (int)( (dos(regp) & CARRY) ? regp->x.ax 


int haswild(s) 
register char "3? 
{ 

/* Return true if s has a unix wild card in it. */ 
for( ; *s ; stt) 

1f( *s == '** || *g mm '9! ) 

return 1; 

return 0; 


} 


7 Fe cases ep ae is cite wi es dein ames mien am anes nit axe ebine cise acim ener eee ee ee ee ek / 


static “int 
register char 


isrootdir( name ) 
*name; 


114 { 


115 
116 
LL? 
118 
Las 
120 
121 
lige 
123 
124 
125 
126 
L127 
128 
129 
130 
131 
132 
Loe 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 

154 

LSS 

156 

rD7 

158 

£59 

160 

161 


return true if name is explicitly specifying the root 
* directory (ie. is one of: d:/ d:\  / \. where 
* "d' can be any disk designator. 


if( *name && name[1] == ':' ) 
name += 2; 


return( (*name == '\\' || *name == '/') &¢ Iname[1] ); 


has only( str, inclusion_set ) 


register char *str; 
char *inclusion_ Set; 
{ 
{* Return true only if every character in str is also in 
. inclusion_set. True is returned if str is empty. 
es 
register char *p; 
for(; *str ; str++) 
{ 
for( p = inclusion_set ; *p && *p != *str ; ptt ) 
if¢ *i*p.) 
return 0; 
} 
return 1; 
} 
Wu Fe a a aS a ce ar ert ee es eas or ls canoe Seven xiv mes avons Mawes was cade cees tees ese” */ 
static char *fixup name( name, regs, info ) 
register char *name; 
REGS *regs; 
FILE INFO *info; 
{ 
/* If the name specifies an implicit file (ie. it asks for 
* the directory rather than the files in the directory), 
* modify it to ask for files (eg. ".." becomes oe Nae ea 
* If the name is actually modified, a pointer to a modified 
* 


copy of the original name is returned. Otherwise the 
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162 
163 
164 
165 
166 
167 
168 
169 
170 
ata 
Lite 
173 
174 
bio 
176 
Ly 
178 
Lid 
180 
181 
182 
183 
184 
E85 
186 
187 
188 
189 
190 
191 
192 
£93 
194 
L995 
196 
97 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
2.7 
218 
219 
220 
221 
222 
223 
224 
225 
226 
ant 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
292 
253 
254 
255 
256 
257 


* original buffer is returned. 
xf 
static char buf[80) ; /* Place to put modified name */ 
register char *p = buf ; /* Always points into buf ay 
char *start_name = name; /* Remember start of name ay 
if( isrootdir(name) || (name[0O] && name[1]==':' && !name[2]) ) 
{ 
/* Handle an explicitly requested root directory or 
* the current directory on another disk. 
“a 
sprintf(buf, "%s*.*", name ); 
} 
else if( !find_first( name, ALL, regs) ) 
{ 
/* Look for the indicated name & see if it's a directory. 
* If so, append slash-*.* to the requested name 
my 
if( !IS_SUBDIR(info) ) 
return name; 
else 
sprintf (buf, "%s/*.*", name ); 
} 
else 
{ 
/* If we get here then a non-existant file or directory 
* was requested. 
* If the name consists of nothing but the characters 
* . \/. or a drive designator, assume that the root 
* directory was requested and adjust the name 
* accordingly. 
ay 
if( *name && name[1] == ':') /* Copy drive designator if */ 
{ /* one's present. * / 
*ptt+ = *namet+ ; 
*pt+ = *namet+ ; 
} 
if( has_only(name, ".\\/") ) 
streoy tp, */*.**.)3 
else 
return( start _name ); 
} 
return( buf ); 
} 
/ meena marta elspa eS es ere ie tne ga Ga Cl aa oa ine ea area oars IC ¥ 
static int dirtoa( target, infop, graphics, pathname ) 


register char 


*target ; 


char *pathname ; 
register FILE_INFO *infop ; 
unsigned graphics; 
{ 
/* Convert directory entry held in infop to an ascii string 
* in target. If Longfmt use a long format, if graphics then 
* directory names are printed in bold face, else they're 
* printed as "<name>." If pathname is true then the name 
* will be preceeded with the full pathname. 
pas 
char *startstr = target; 
int ...23 
if( Longfmt ) 
{ 
*target++ = ( IS READONLY(infop) ) ? 'r' : '.' ; 
*target++ = ( IS HIDDEN (infoo) 3) PANS es"? 
*targett+ = ( IS SYSTEM (infop) ) ? eras. VF 
*target++ = ( IS SUBDIR (infop) ) ? 'd' : '.'; 
*target++ = ( IS DIRTY (infop) ) ? 'm' : '.' ; 
sprintf (target, " %6ld %2d/%02d/%02d %2d:%02d:%02d - ", 
infop->fi_fsize, 
C MONTH(infop), C_DAY(infop), C_YEAR(infop)-1900, 
C HR(infop), C MIN (infop), C SEC (infop) 3 
while( *target } 
target++; 
} 
if( IS_SUBDIR(infop) && graphics ) 
target = cpy( target, BOLDFACE ); 
target = cpy ( target, pathname ); 
target = cptolower( target, infop->fi_name ); 
if( IS_SUBDIR(infop) && graphics ) 
target = cpy( target, ALL OFF ); 
return( target - startstr ); 


(Continued on next page) 
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Number One 
In Performance 


Hard Disk 
intelligent 


VCR Backup 
for AT/XT/PC 


FEATURES 


e High speed microprocessor 
controlled backup (68000) 
e Two channel interface 


e Built in LAN channel 


e Software control of most VCR 
functions including Fast Forward, 
Rewind, and auto backup using VCR 
timer capabilities 


e Economical VHS or Beta formats 


TLM Systems 


West: 4704 W. Jennifer, Suite 105, Fresno, CA 93711, 209/276-2345 

Bat pees eee NY 10570, 914/747-1450 
istributor: Telemarketing Services, Inc. . 

1897 Garden Ave., Eugene, OR 97403, 800-874-2288 


Circle no. 174 on reader service card. 
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TEEE- 488 






258 } 
259 


261 


265 char 
266 { 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
epigy /l fs / 277 
re e rt - 278 
a Gk ~~ 279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
ait 
312 
313 
314 
315 
316 
Sie 
318 
319 
320 
321 
322 
323 
324 
_ 325 
326 
oat 
328 
329 
330 
331 
332 
333 
334 
3355 
336 
337 
338 } 
339 


Hardware Flexibility 
-Lowcost for instrument — 
control 
— 300K bytes per second © 
— $395 compiete with software 
_ © High performance data links — 


— Maximum speed of GPIB 
— On-board buffering 


software i ists 

¢ Software specially tested for _ 
_ the IBM PC and compatibles _ 

- Over $1,000,000 in software 
development 
» Easy to use, yet handles any | 
GPIB application 
Works with Lotus 1-2-3 
* UNIX, DOS and over 12 
_ languages 


Applications Support 


_ Applications Library with 
Sample programs & TIPS for all. / 
- major instruments - 
Full staff of Applications _ 
Engineers dedicated to sup- 
| vob your specific needs 
































GPIB Bus Testers 
— GPIB Bus Extenders 
_ — Stand-Alone Controllers 






342 
343 static 
344 char 


12109 Technology Boulevard —t*” 345 { 


Austin, TX 78727 
1(800)531-GPIB 

in Texas (SOO) IEEE-488 
Telex: 756737 NATINSTAUS 


Circle no. 271 on reader service card. 
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262 static int 
263 FILE INFO 
264 register DIRECTORY 


S CHES! 


LISTING EIGHT (Listing continued, text begins on page 14) 


260 /*---------------------------------------------------- ------------------+/ 


add entry( infop, dp, path ) 


*infop ; 
*dp : 
*path =; 
/* Add an entry to the DIRECTORY structure. Return 0 if 
* it was added, one if it wasn't. 
¥/ 
char buf [128] ; 
register int len >=. 3 
/* 
* If we're not printing hidden directories but the current 
* directory is nonetheless hidden, return immediately. 
* Similarly, return if the directory is full. 
“/ 


if( !dp->hidden && (IS HIDDEN (infop) 
return 1; 


seen ) 


|| *infop->fi_name = 


if( dp->maxdirs <= 0 ) /* No more room in dirv. return */ 


return 0; /* error status “/ 
/* 
* Update the directory count or the file count as appropriate 
* return immeadialy if we're looking at a file and we aren't 
* supposed to list file. The same with directories. 
ey 
if( IS SUBDIR(infop) ) 
{ 
if( dp->dirs ) 
dp->ndirs++ ; 
else 
return 1; 
} 
else 
{ 
if( dp->files ) 
dp->nfilest++ ; 
else 
return 1; 
} 
/* 
* Convert the FILE INFO structure to an ascii string and put 
* it into buf. Then malloc a chunk of memory the correct size, 
* copy the ascii string there, and put the malloced memory 
* into dirv at the correct place. 
*/ 
Longfmt = dp->longf; 
len = dirtoa( buf, infop, dp->graphics, path ); 


if( len > dp->width ) 
dp->width = len ; 


if( *dp->lastdir = malloc(len + 1) ) 
{ 
strcpy( *dp->lastdir++, buf ) ; 


/* Add file size to total. Note that the actual amount 
* of space (# of clusters) used by the file on the 

* disk is used. 

KS 


dp->nbytes += ROUND( infop->fi_fsize, Cluster size ); 
--dp->maxdirs; 


return 1; 


} 
fprintf(stderr,"Can't get memory for directory\n"); 


return 0; 
ee a wr wr wn ww en ee ee */ 
void copy path( dest, src ) 
*dest, *src; 
(Continued on page 62) 
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$395 COMPLETE 


For VISA, MC and COD orders 
call (314) 445-6833 

FairCom 

2606 Johnson Drive 

Columbia, MO 65203 


© 1985 FairCom 


Specify diskette format: 
e 5%" MS-DOS 

e 8” CP/M 

@ 3'4" Mac 

es” RT-I| 


The following are trademarks: c-tree and the circular disk logo—FairCom; MS—Microsoft Inc.; 
CP/M and Access Manager—Digital Research Inc.; Unix—AT&T; Apple—Apple Computer Co. 
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Z80ASM 
Pers tT 


DON’T ASK HOW OURS CAN BE SO FAST... 
ASK WHY THEIRS ARE SO SLOW! 
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IBM/AT/XT/PC- 8mz 
No Wait States 


FEATURES 


e 64K-256K RAM 
e 2K-8K EPROM/ Static Ram 
e 2 Serial Ports 

Async/Sync/Bisync Communications 
e Real Time Clock 
e Memory-mapped Dual-port BUS 
e On-board/Remote Reset NMi capability 
e Up To 32 Boards Per AT/XT/PC 
e Can Operate As Standalone Processor 
e Less Than Full Size Board 

(will fit other compatables.) 


SOFTWARE 


e ZP/Mtm CP/M Emulation Software 
(Supports Most CP/M Software) 

e Multiuser Capability If Used As A 
Slave Processor 


IBM is a registered trademark of intermational Business Machines 
CPM /801s a registered trademark of Digital Research Corp 


TLM Systems 
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LISTING EIGHT (Listing continued, text begins on page 14) 


346 /* Copy only the pathname part of the file spec contained in 
347 * src to dest. Path names longer than 64 characters are 
348 * truncated so dest must be at least 64 characters long. 
349 rE 

350 

351 register char *p, *slash; 
352 

353 for( p = slash = src ; *p ; ) 

354 2 ep ee a ee NNO te ae he F) 

Soa slash =p+ 

356 

Sat for(p = src; p < slash && p- src < 64; *destt++ = *pt+ ) 

358 ; 

359 

360 *dest = 0; 

361 } 

362 

363 [Rm nn a a et / 
364 

365 static void clab( dest, src ) 

366 register char *dest, *src> 

367 { 

368 for(; *src ; srct+, destt++ ) 

369 if( *sre f= 2} 

370 *dest = *src >; 

a7a0% 

aie 

RES [Fm a  / 
374 

375 static int cmp( ppl, pp2 ) 

376 char ~ a , » Shee 


377 { 

378 /* Comparison routine needed for ssort () */ 

379 

380 register char *pl = *ppl;> 

381 register char *p2 = *pp2; 

382 

383 if( Longfmt ) 

384 { 

385 f* Skip forward to the '-' that will preceede 

386 * the filename. 

387 “y 

388 

389 while( *pl && *pl != '-' ) 

390 pl+t; 

391 

392 while( *p2 && *p2 != '-'" ) 

393 p2t++; 

394 } 

395 

396 return( stromp(pl, p2) ); 

397 } 

398 

399 mr a 
400 

401 DIRECTORY *mk dir( size ) 

402 register unsigned size; 

403 { 

404 /* Make a DIRECTORY with the indicated number of dirwv entries. 
405 * Note that since one dirv entry is declared as part of the 
406 * DIRECTORY header, we'll actually have sizet+l entries 
407 * available, though the last one is never used. We allocate 
408 * it so that we can terminate the list with a null 

409 * entry, even if the list is full. 

410 xf 

411 

412 register DIRECTORY *dp; 

413 

414 

415 

416 

417 if( !( dap = (DIRECTORY *)calloc( (unsigned)1, 

418 sizeof (DIRECTORY) + (size * sizeof (char *))) }) 
419 return 0; 

420 

421 dp->maxdirs = size ; 

422 dp->lastdir = (char **) dp—>dirv; 

423 return dp; 

424 } 

425 

9G ert lp eran nrg tients did lah */ 
427 

428 del dir( dp ) 

429 register DIRECTORY *dp; 

430 { 

431 /* Delete a directory made with a previous mk dir call. 
432 * Note that all the strings pointed to by dirw entries 
433 * are assumed to have been gotten from malloc (this is 
434 * always true if dir() is used to fill the strings. 


(Continued on page 66) 
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Z80 CP/M USERS TAKE HEART! 
HERES ALL YOU NEED TO WRITE 
YOUR OWN PROGRAMS FOR ONLY: 


$25.00! 


DR. DOBB'S Z80 TOOLBOOK 
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Seah 


By David E. Cortesi 


Do you use CP/M? Do you feel as if the only part of 
the computer industry that has not abandoned you 
is your own Z80 computer? It keeps on working, but 
when you need programs for it, you have to write 


them yourself. When you do, you quickly find that 
while Pascal or Basic is okay for some things, there is 
often no substitute for the speed, small size, and 
flexibility of an assembly language program. 





DR. DOBB’S Z80 TOOLBOOK puts the power of 
assembly language in the hands of anyone who's 
done a little programming. You'll find: 


* A method of designing programs and coding 
them in assembly language—and—a demon- 
stration of the method in the construction of sev- 
eral complete, useful programs. 


A complete, integrated toolkit of subroutines 
for arithmetic, for string-handling, and for total 
control of the CP/M file system. They bring the ease 
and power of a compiler’s runtime library to your 
assembly language work, without a compiler’s size 
and sluggish code. 


Best of all, every line of the toolkit’s source code is 
there for you to read, and every module’s operation 


To order, return this form with your payment, plus $1.75 for 
shipping in the U.S., $3.75 outside the U.S., to: M&T Publishing, 
501 Galveston Dr., Redwood City, CA 94063 


Or, for faster service on credit card orders, CALL TOLL FREE 
1-800-528-6050, ext. 4001. Refer to item #022 for the Z80 
Toolbook and item #022A for the Z80 Toolbook with the 
disks. Please specify one of the disk formats offered below. 


Send me copies of DR. DOBB’S Z80 TOOLBOOK: 


$25 ea 
sets of DR. DOBB’S Z80 TOOLBOOK 
along with the software on disk 
for $40 per set: 
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is explained with the clarity and good humor for 
which Dave Cortesi’s writing is known. 


Order the Z80 Software on Disk! 
Save Yourself the Frustration of File Entry 


All the software in DR. DOBB’S Z80 TOOLBOOK— 
the programs plus the entire toolkit, both as source 
code and as object modules for both CP/M 2.2 and 
CP/M Plus—is yours on disk. (A Z80 microprocessor 
and a Digital RMAC assembler or equivalent are 
required.) 


Receive DR. DOBB’S Z80 TOOLBOOK, along with 
the software on disk, together for only $40. 


For the Z-80 software on disk, please specify one of the following | 
formats: 
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The 80286 is a powerful chip. It can directly address up 
to 16 megabytes of memory. But unfortunately, you 
can't. DOS won't let you. And the compilers for what- 
ever language you are currently using won’t let you. 
Until now. 
Alsys has developed a new Ada compiler for the 
IBM PC-AT. Ada, of course, is the language mandated 
by the DoD for critical applications. Many believe it will 
be the dominant language for the rest of the eighties 
| and nineties. 
: But leave aside Ada's virtues as a highly maintain- 
able, portable, readable, software engineered language. 
Leave aside its acceptance and sponsorship by DoD, 
NASA, NATO, the FAA and large numbers of com- 
mercial users. Forget (if you can) the $12 billion forecast 
in just DoD Ada sales through 1989. 
Think only of a million plus lines of code running on 
a PC-AT! And think of the code executing faster than 
C or Pascal! 
Think of the programs you could write if you could 
address 16 megabytes! | 
It’s like moving your AT from primitive to profes- 
sional, roller skates to Rolls Royce. It lets you and your 
AT do everything you were meant to do. 
| The new Alsys Ada compiler, 300,000 lines of Ada 
| code and self-compiled (with only 3 megabytes of mem- 
ory!), also provides complete memory protection. An 
incorrect program affects no areas of memory except 
7 those allocated to the program. In particular, the oper- 
; ating system cannot be destroyed. And it does this, 
under control of DOS, without any changes to DOS of 
any kind! 
No more Alt-Ctrl-Del restarts after a bug 
damages DOS! 


® Ada is a registered trademark of the U.S. Government (AJPO). 
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radical new idea in 
PC-AT programming: 
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Alsys Ada Compiler for the 80286 Defeats the Tyranny of 640K DOS; 
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Alsys is the premier Ada company in the world. 
France, U.S., U.K. And is about to become the premier 
AT compiler company in the world, too. For any lan- 
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Use the coupon now. Or Call. Freedom is a precious 
thing. 
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Waltham, MA 02154 
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Quelo® 68000 fovea 
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68000/68010 Assembler Package 


Assembler, linker, object librarian and extensive indexed 
typeset manuals. 


Conforms to Motorola structured assembler, publication 
M68KMASMI4]. Macros, cross reference and superb load 
map, 31 character symbols. 


Optimized for CP/M-80, -86, -68K, MS-DOS, PC-DOS .$ 595 
Portape Source iC” on eh ges nc bc Sl wane one oe $3000 


Lattice® 68000 “C” Cross Compiler 
and Quelo 68000/68010 Assembler Package 


Optimized for MS-DOS .......6. 0... bode ck ete ome $1095 


68200 Assembler Package 


Optimized for CP/M-80, MS-DOS, PC-DOS......... $ 595 
68020 Assembler Package 

Optimized for CP/M-68K, MS-DOS ............... $ 750 

Portable Source in''C” >... 2. cae Ode cme Oe $3500 

For more information contact Quelo Inc. 


2464 33rd W. Suite #173 
Seattle, WA 98199 
Phone (206) 285-2528 
Telex Il (TWX) 910-333-8171 
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SAME DAY SHIPPING (USUALLY) 


OUTSIDE OKLAHOMA: NO SALES TAX 


V20 $16.00 V30 $17.50 
8087-2 Math Coprocessors 145.00 
DYNAMIC RAM 
256K 64Kx4 150ns_ $4.75 
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STATIC RAM 
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OPEN 7 DAYS: WE CAN SHIP VIA FED-EX ON SAT. 


NO EXTRA COST MasterCard/VISA or UPS CASH COD 


ronrepex | Factory New, Prime Parts uPoo 
SAT DELIVERY | MICROPROCESSORS UNLIMITED, INC. 


mst ar soves| BEGGS, OK rade” (918) 267-4961 


pe Rone $132 bs | Prices shown above are for Jan. 28, 1986 


Please call for current prices. Prices subject to change. pb sig ides bap cane ng ak 

Ng costs. Shipping & insurance extra. Cash 

discount pnces shown. Orders received by 6 PM C: can usually be delivered to you by the next 
Federal Express 


some parts due to supply & demand and our 
Standard Air @ $6.00, or Priority One @ $13.00! 
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TOTAL HECALL 


FOR $104.95 2 $3 


Now you can retrieve everything 
you entered during program 
development -- from version 
one thru all updates. SRMS 
does it with a complete 
source uflity at an af- 
fordable price. 

You can retrieve specific 
versions of a program, 
make changes and rein- 
state the source while 
recording when, why and 
where changes were made. 


All versions are stored ina 
single library without dupii- 
cation of common code or te 
text -- saves disk space. You can also store comments 
specific to each version -- provides complete develop- 
ment history and documentation of the program. 
SRMS supports recall and edit of programs written in 
BASIC, FORTRAN, PASCAL (including Turbo Pascal), 
C and ASSEMBLY CODE. 

Requires MS or PC DOS, Version 2 and up with 128K 
and one disk (floppy or hard). 


Quilt Computing 


7048 Stratford Road 
(612) 739-4650 
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Woodbury, MN 55125 


C’CHES! 


LISTING EIGHT (Listing continued, text begins on page 14) 


435 
436 
437 
438 
439 
440 
44) 
442 
443 
444 
445 
446 
447 
448 


ef 
register char **v; 


for( v = (char **) dp->dirv; v < dp->lastdir ; free( *v++ } ) 


s 
’ 


free( dp ); 


dir({ spec, dp } 


* spec; 


449 DIRECTORY *dp; 


450 
451 
452 
453 
454 
455 
456 
457 
458 


459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
902 
503 
504 
S05 
506 
507 
508 
509 
510 
Sik 
oi2 
913 
914 
915 
516 
517 
518 
919 
520 
521 
522 
323 


NS ANMACD'SSs:y- =< TE | _ — ss 


f* Get a directory for the indicated spec. DOS wildcards are 
= permitted. If the DIRECTORY pointed to by dp already has 
* entries in it, new ones will be appended onto the existing 
* ones. If *spec is null, no files will be gotten, this is 
* useful if all you want is the volume label. 
* 
e Note that the DTA is not modified by this routine. It 
= sets the DTA to its own address, but then restores the 
= DTA before returning. 
“iy 
REGS regs ; /* Needed for DOS calls x7 
FILE INFO info : /* DOS puts dirs here */ 
char path(80] ; /* place to put path */ 
char **xfirstdir; /* Used for sorting xf 
short seg, Off .-7 /* Segment and offset of bs 4 
/* original DTA “7 
unsigned sec_per cluster, /* Used to compute number of xf 
bytes per | sector, /* bytes in a cluster */ 
garbage; 
gregs( &regs ); /* Get the original DTA */ 
DOSCALL( GETDTA, regs ); 
seg = regs.x.es ; /* remember it in set:off */ 
off = regs.x.bx ; 
regs.x.dx = (word) é&info; /* Change the Disk Transfer Addr */ 
DOSCALL( SETDTA, regs }; /* to point at info structure */ 
{* Find the number of bytes/cluster on the indicated 
* disk drive (or on the current drive if none is 
* specified. 
ia 


if( !diskinfo( (!*spec||spec[{1]!=':') ? 0 : (toupper(*spec)-'A')+1, 
&sec per cluster, &bytes per sector, égarbage, &garbage) ) 
fprintf(stderr,"dir: Can't access indicated disk\n"); 


Cluster size = sec per cluster * bytes per sector ; 


/* If a volume label is requested, get it and copy it into 
* dp->vol_lab. Any imbedded '.'s are stripped by clab. 

* If no volume label is present, the string is nulled. 

nf 


if( dp->label ) 
{ 
*dp->vol_ label = 0; 


if(-spec[1] f=-'s") 

strepy( path, "/*.*" ); 
else 
{ 

*path = *spec ; 

strepy ¢.patht+1, =":/*.*"" ): 
} 


if( !find first (path, LABEL, &regs) ) 
clab( dp->vol_ label, info.fi_name ); 


* Now get the directories: 
ef 


if( dp->exp && !haswild(spec) ) 
spec = fixup name( spec, é&regs, &info ); 


copy_path( path, dp->path ? spec : "" ); 


(Continued on page 68) 
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SOFTWARE 
DESIGN 


ENGINEERS 


We're looking for nothing less than 
the top Software Design Engineers in 
the country — wizards who can com- 
bine microcomputer software devel- 
opmentskills with creative imagina- 
tion. You will work in networking, 
sophisticated graphics, operating 
systems, compilers, productivity 
software, product marketing and 
other exciting areas. In each project, 
you ll have the opportunity to explore 
totally new realms of microcomputer 
software. 


The right candidateswill have a 
degree in Computer Science, ora 
related field with a minimum of 3 
years relevant work experience in the 
microcomputer industry. Experience 
in micros, systems programming 
using “C”, Pascal, or Assembler, 
operating systems and working in 
small teams is essential to these posi- 
tions. Experience in 8086 Assembler, 
XENIX/UNIX, MS-DOS, and micro- 
processors (286, 8086, 86000) is 
desired. 


Microsoft is located in the Seattle 
area of the beautiful Pacific North- 
west, where the amenities of civili- 
zation live side by side with the 
grandeur of mountains and pine 
forests. It's one of the most prized liv- 
ing environments in the United States. 


Come to Microsoft, where you will 
have the space and flexibility to prove 
to the computer industry that you’re 
the best at what you do. Microsoft 
offers excellent opportunities anda 
complete benefits package. Send 
your resume to: MICROSOFT COR- 
PORATION, Human Resources, 
Dept. SS, 3055 112th NE, Box 97200, 
Bellevue, WA 98009. An Equal 
Opportunity Employer. 


MICRGSOFT 


The High Performance Software 
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LARGE MODEL 


The Datalight C compiler is a full-featured UNIX 
System 5 compiler for PC and compatible com- 
puters. Datalight C features fast compile time, DLC 


one-step compile Command, a MAKE program, full 

8087 and software floating point, and Lattice C 
compatibility. The library contains UNIX standard 

functions and PC specific functions with easy access to DOS/ BIOS 
functions. The package includes source code for UNIX-like tools: 
cat, fgrep, diff wc, and pr. 


The Developer's kit contains all features of the 
Datalight C compiler plus support for LARGE MEM- 
ORY MODEL, ROMable code, third-party debuggers 








and the complete source for all library functions 
and Start-up code. 


Datalight C provides tight, fast, production-quality code as 
shown in the following table (excerpt from “The State of C,” 
PC-TECH Journal, January 1986, used with permission). 


[J eatalignt | £60 | iattice [ wierosore [mark wis 
[cetc/pute] 2.0 [739] 622 622 


Datalight 


11557 8th Ave. N.E. 
Seattle, Washington 98125 
(206) 367-1803 











VISA and MasterCard accepted. Add $3 shipping ($5 UPS BLUE). Outside USA 
add $15. Washington State residents add 7.9% sales tax. 


Requires MS-DOS 2.0 or later, 2 DSDD disks. 


Lattice C, a trademark Of Lattice Corp. MS-DOS, a trademark of Microsoft. 
UNIX is a trademark of Bell Labs. 
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C CHEST 


LISTING E IGHT (Listing continued, text begins on page 14) 


524 firstdir = dp->lastdir; 
525 
526 a Now go look for the file: 
527 #7 
528 
529 if( !find_first (spec, ATTRIBUTES, &regs) ) 
530 if( !add_entry(&info, dp, path) ) 
Sod goto abort; 
532 
S33 if( haswild(spec) ) 
534 while( !find_next( &regs ) ) 
935 ) if( !add_entry(&info, dp, path) ) 
536 goto abort; 
537 
538 if ( dp->sort ) 
539 ssort ( (char *)firstdir, dp->lastdir - firstdir, 
540 sizeof (char*), cmp); 
541 
542 abort: 
543 regs.x.ds = seg ; /* Restore the original disk sf 
544 regs.x.dx = off ; /* transfer address. ey 
545 DOSCALL( SETDTA, regs }): 
546 } 
End Listing Eight 
1 #include <stdio.h> 
2 #include <ctype.h> 
3 
4 #define MAXARGC (unsigned) 128 
5 #define isquote(c) ((c)=='""" |] (c)='N\'') 
6 
7 extern char *getenv( char* ); 
8 extern char *malloc( unsigned ); 
9 
VO LR mmm a ee Re 
11 
12 static char *nextarg( pp ) 
13 char * tps 
14 { 
15 register char *p; 
16 char *start; 
17 register int term; 
18 
19 itt [*4p "pp 2:7 
20 return (char *) 0; 
21 
22 while( isspace(*p) ) 
23 ptt; 
24 
25 if( isquote(*p) ) /* Can't use a conditional because */ 
26 term = *ptt+; /* of order of evaluation problems */ 
27 else 
28 term =' '; 
29 
30 for(.start-= pr. *p 3 ptt) 
31 { 
32 if( *p == term && *(p-1) != '\\' ) 
33 { 
34 *p++ = '\O'? 
32 break; 
36 } 
37 } 
38 
39 *pp = Dr 
40 
41 return start; 
42 } 
43 
44 /*----—--~~~—------------------- --- -- --- --- ----- -- -- - -- -- -- - ----- +--+ -* 
45 
46 int reargv( argcp, argvp ) 
47 char ***kargvp; 
48 int *argcp; 
49 { 
50 register int argc = 0 ; 
51 register int maxc = MAXARGC ; 
52 char **argv, **start argv ; 
53 char *env, *p ; cy 
54 
Ss if( ! (env = getenv("CMDLINE")) || !*env ) 
56 return 0; 
a 
58 if({ !(p = malloc( strlen(env)+1 ))) 
59 return 0; 


(Continued on page 70) 
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New for'C’ 


A“C* programmer's tool to increase screen develop- 
ment productivity for the IBM PC. Security checking and 
help screen display are available at both the screen 
and field level. The automatic conversion of data types, 
to and from ASCII screen format, and the many other 
productivity-oriented features, set ZVIEW apart from 





the rest. 
Screen Painter Highlights: 


° Border colors and all character attributes and colors 
are supported. 

° Draw single or double lined boxes using 
preset key strokes. : 

° Two field sensitivity settings to facilitate the moving 
and adding of fields, without destroying existing 
field characteristics. 

° Three types of fields are available: “Protected,” 
“Unprotected” and “Heading.” The number of fields 
is limited to 600!! 

° Both 40 and 80 column screens are supported. 


Optional Field Characteristics: 
e Choose left or right justification, with zero or blank fill. 
e Automatic key stroke conversion to upper or lower case. 
¢ Edit fields to be numeric (signed or unsigned), 
decimal (zero to six decimals supported), alpha 
or alphanumeric. 
° Display numerical values with or without 
commas inserted. 
e All “C” data types are supported, including a special 
long value which is displayed as a decimal field. 
° From and to range checking and character 
matching edit. 
° Security level settings to restrict inquiring or updating 
of a field. 
° Override ZVIEW’s default tabbing sequence. 
e Assignment of a single or multiple screen help file, 
to be displayed when the field level help key is pressed. 
« Compare one field to three other fields on the 
current screen. 


TO ORDER CALL TOLL FREE 1-800-423-0930 


Customer Service and Nevada residents: 
call 1-702-798-5910 


IBM PC, XT, AT and PC-DOS are trademarks of International Business Machines. 
MICROSOFT and MS-DOS are trademarks of Microsoft. 
ZVIEW is trademark of Data Management Consultants 














Program Interface Highlights: 

* Only seven run-time library functions control all aspects of 
the program to screen interface. 

* Dynamically change any field characteristic at run-time. 

* Awide range of run-time variables to further customize 
ZVIEW’s operation. 

* One call fo ZVIEW’s “Waitkey” function, performs all field 
edits and program to end user interface. 

* Automatic data conversion of all data types to and from 
data structures and buffers. Data goes directly from data 
type to screen format and back, with one call each way. 


Requirements: 

° Microsoft 3.0 “C” or Lattice “C” compiler. (Call for 
additional information on compiler availability). 

° IBM PC, XT, AT or compatible, MS/PC DOS, one 320k 
drive, a color graphics adapter and any 40 or 80 
column display. 


Price: 
° $245 
Includes manual and a detailed program example. 
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Or Write: Data Management Consultants 
5325 So. Valley View Blvd. Suite #7 
Las Vegas, NV 89118 


Master Card, Visa or company 
check accepted 


Circle no. 263 on reader service card. 























AT LAST — 
A handbook that contains the Programming 
Codes for 100’s of popular printers. 
Announcing: 
PROGRAMMERS’ HANDBOOK OF 
COMPUTER PRINTER COMMANDS 
The handbook gives you: 
Codes for printers made by over 40 Printer 
Manufacturers. 
Easy to use spiral bound book of over 250 pages 
of Programming Codes written in table form. 
Codes arranged by Written Code, Hex and Decimal 
equivalent, and with a brief description of what 
each code does. 
Codes for either Daisy-Wheel or Dot Matrix Printers 
(models through 1984). 


ONLY $37.95 + $2 shpg./hdlg. ppd. 


with a two week approval guarantee. IF NOT 
SATISFIED, return in original carton for refund of 
book price only. 


TO ORDER: 1-800-628-2828 ext. 534 


¢ e 
E 
INCORPORATED 


(812) 876-7811 (9-5 EST) 
a P.O. BOX 596, ELLETTSVILLE, IN 47429 quam 
We accept MC, VISA, MO—same day shpg. _ VISA 
COD—$2 extra. CKs—Allow extra 14 days. 


Circle no. 246 on reader service card. 


Sy Le 
CROSS-REFERENCER 


IT WORKS WITH ALL 


LANGUAGES 


BASIC, C, PASCAL, FORTRAN, COBOL, 
ASSEMBLER, dBASE ... you name it. 


IT HANDLES standard languages, 


extended languages & exotic languages. 


IT CONFIGURES to your com- 


piler, interpreter, or assembler — ALL 
BRANDS — ALL VERSIONS. 


INTRODUCTORY $3 Q 95 


PRICE 
$3.00 S/H - MC/Visa/Check - 6% Texas Sales Tax 
For the IBM PC, XT & compatibles. DOS 2.0+ 


DALSOFT SYSTEMS 
3565 High Vista - Dallas, TX 75234 


(214) 247-7695 


Circle no. 86 on reader service card. 


DATA CONVERSION 


TRANSFER DATA BETWEEN OVER 
500 DIFFERENT COMPUTER SYSTEMS 
WORD PROCESSORS TOO 


QUICK TURN-AROUND 
PRICES FROM $9 PER DISK 


CALL OR WRITE FOR YOUR 
FREE CATALOG 
PORT-A-SOFT 
555 S. STATE ST., SUITE #12 


P.O. BOX 1685, OREM, UT 84057 
801) 226-6704 


Circle no. 229 on reader service card. 
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C CHEST 


LISTING NINE (Listing continued, text begins on page 14) 


60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
7d 
72 
73 
74 
75.} 
76 
77 
78 
79 
80 
81 
82 char 
S3 { 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 } 

- 101 
102 #endif 


if( ! (argv = (char **) malloc( MAXARGC * sizeof(char *)) )) 
return 0; 


strepy (p, env); 
start argv = argv; 
for ( maxc=MAXARGC; --maxc >= 0 && (*argvt++ = 


’ 


nextarg(&p)); argct++) 


if( maxc < 0 ) 
fprintf(stderr, "Command line truncated\n"); 


*argco:= 
*argvp = 
return 1; 


argc; 
Ss 


#ifdef DEBUG 


main( argc, argv ) 


**argvs 


printf ("Original command line is: |"); 
while( --arge >= 0 ) 
printf ("ts (", -*azgvtt ); 


if( !reargv( &argce, &argv ) ) 
printf ("\nCMDLINE not present \n"); 
else 
{ 
printf ("New argc = d\n", argc ); 
printf ("\nModified command line is: |"); 
while ( --arge >= 0 ) 
printf ("%s|"“, *argvt++ ); 


BLintl("\n"}+ 


End Listing Nine 


LISTING TEN 


he 
OOMANAUPWNHE 


PP 
fA 


Le 


PRP 
ul & W 
— 


PRPPP 
(© © ~) OV 


NON NM NY 
WHF © 


WWWWWHNHDNNDND ND 
BWHOrR OW ONDA 


a 


SSORT.C Works just like qsort() except that a shell 
sort, rather than a quick sort, is used. This 
is more efficient than quicksort for small numbers of elements 


and it's not recursive so will use much less stack space. 


Copyright (C) 1985, Allen I. Holub. All rights reserved 


ssort ( base, nel, width, cmp )} 


*base; 

nel, width; 

(*cmp) () 7 

register int |) 

int gap, k, tmp ; 
char POL, *p2F 


for( gap = nel >>1; gap >O =}; gap >>=1 ) 
for( i = gap; i < nel; i++ ) 
a j = i-gap; j >= 0; j -= gap ) 


pl = base + ( j * width); 
p2 = base + ((jtgap) * width); 
if( (*amp)( pl, p2 ) <= 0 ) 
break; 
for( k = width; --k >= 0 ;) 
{ 
tmp = *pl; 
*pl++ = *p2; 
*p2++ = tmp; 


End Listings 
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A Unix-like Shell 
AND a Unix-like Utility Package 


by Allen Holub 
Both Available on Disk for MS-DOS 





THE SHELL 


SH—A Unix-like Shell for MS-DOS 


SH is an implementation of the most often used parts of the 


Unix C shell. This package includes an executable version 
of the shell along with the complete source code and full 


/util 


A Unix-like Utility Package for MS-DOS 


/util is a collection of Unix utility programs for MS-DOS. This 
package includes complete source code. All programs (and 
most of the utility subroutines) are fully documented. You'll 


documentation. find executable versions of: 
Supported features are: cat A file concatenation and viewing program 
Editing Command line editing with the cursors is oF nee aN 

supported. The line is visible as you edit it date Prints the current time and date 
Aliases Can be used to change the names of com- du Prints amount of space available and used 

mands or as very fast memory resident on a Olsk 

batch files. echo Echoes its arguments to standard output 
History The ability to execute a previous command grep Searches for a pattern defined by a regular 

again. The command can be edited before EXPIESSION. 

being executed. Is Gets a sorted directory. 
Shell Macros that can be used on the command line. mkdir Creates a directory 
variables mv Renames a file or directory. Moves files to 
Nested A batch file can call another batch file like a another directory. 
batch files subroutine. Control is passed to the second file p Prints a file, one page at a time. 

and then back to the first one when the second 

file is finished. DOS doesn't have this capability. P - iad Pan nena f “jai e rn 
Unix-like — Slash (/) used as a directory separator, minus printenv Prints all the pa aete HS 
syntax (—) as a switch designator. A 2048 byte com- rm Deletes one or more files. 

mand line is supported. Command line wild rmdir Deletes one or more airectories. 

card expansion. Multiple commands on aline. gy Text substitution utility. Replaces all matches of 


The shell also supports redirection of standard input, 
standard output, and standard error. 

This version corrects several bugs found in the original ver- 
sion printed in Dr. Dobb's Journal, December 1985 through 
March 1986 issues. It runs on any MS-DOS computer. 


a regular expression with another string. 


To order, return this coupon with payment to: M&T Publishing Inc., 501 Galveston Dr. Redwood City, CA 94063 


VES J Please send me copies of The Shell for $2995 each 
8 


______ copies of /util for $29.95 each 














Gino teers ee ee ee ee ee Zip 


| | 
| | 
7 SUBTOTAL . 
| ae CA residents add applicable sales tax__ % | 
| Please add $1.75 per disk for shipping __ ss 
| 
! _________ Check/Money Order enclosed TOTAL 7 
Le Please chargemy____ VISA M/C. =_____ Amer. Exp. 3 
| Card # Exp. Date : 
| Name . 
| Address ; 
| 
| | 
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helps save time, money and cut frustrations. Compare, evaluate, and find products. 








SERVICES 5 

Free Literature - Compare Products 
¢ Programmer’s Referral List + Dealer’s Inquire : 
: Fanare Sa « Reamittet Evaluate products. Compare competitors. Leam about new alterna 


, tives. One free call brings information on just about any programming 
* Help find a Publisher * Rush Order ate ; - 
‘ Evaluation Literature FREE + Over 700 products need. Ask for any Packet” or Addon Packet CL) AIL] ADA. Modula 
* BULLETIN BOARD - 7PM to 7AM 617-826-4086 CIBASIC C}C’ LICOBOL [Editors LIFORTH [JFORTRAN 
CIPASCAL [JUNIX/PC or{_Debuggers, Linkers 





Al- Expert System Nee 


Arity System - incorporate with C rE 
programs, rule & inheritance PC $295 ude 


Ist Class - by example, interfaces $250 
ExpertEASE - Develop by describing ACTIVE TRACE, DEBUGGER - 


examples of how you decide. PC Call BASICA, MBASIC, interactive, 


, well liked MS $ 79 
ta Thorough, improved. Debug, BASIC DEVELOPMENT SYSTEM - 
port gen. PC $349 
INSIGHT I - Probabilities, required (BDS) for BASICA; Adds Renum. 
thresholds, menus, fast ($79). 2 adds crossref, compress. . PC $115 
backward, forward, partitions, dB2, BetterBASIC all RAM, modules. 
lang, access. PC $399 structure. BASICA - like PC $169 
Others: APES ($359), Advisor ($949), sr tbeeads ne 
ES Construction ($100), ESP ($845), x 
CADSAM FILE SYSTEM - full ISAM 
Experteach ($399), Expert Choice ($449) ‘n MBASIC source. MS $ 75 
| CB-86 - DRI CPM86, MS $419 
Data Manager - full source MS $325 
List Our InfoREPORTER - multiple PC $115 
GC LISP - “Common”, rich. PC/BASIC for Macintosh - by 
Interpreter - Interactive Tutorial $495 Call Pteradactyl. Compiles IBM BASICA, 
LARGE Model - 2 to 15 meg. and MS BASIC for MAC syntax. $250 
Compiler and Interp. $1190 Call Prof. Basic - Interactive, debug PC $ 89 
TLC LISP - “LISP-Machine” - like, all 8087 Math Support , $ 47 
RAM, classes, turtle graphics, 8087, QuickBASIC by Microsoft - Compiles 
compiler. CPM-86, MS $225 full syntax of IBM BASICA, 640K, 
WALTZ LISP - “FRANZ LISP” - like, big PC $ 85 
nums, debug, CPM-80 MS $149 TRUE Basic - ANSI PC $109 
Others: IQ LISP ($155), BYSO ($125), Run-time Module PC $459 


MuLISP-86 ($199) 


he 
Al- PROLOG 


Macintosh COBOL - Full MAC $459 


ARITY Standard - full,4Meg PC $ 95 MBP - Lev II, native MS $885 
Interpreter - debug, C, ASM PC $ 350 = MicroFocus Prof. - full PC Call 
OMPILER/Interpreter - EXE PC $ 795 Microsoft Version II - upgraded. Full 
With Exp Sys, Screen - KIT PC $1250 Ley. II, native, screens. MS $500 
MicroProlog - enhanced $ 229 Realia - very fast MS Call 
MProlog - Improved. Faster PC $725 Ryan McFarland - portable MS $695 


Professional MicroProlog MS $ 359 

TransPROLOG - Learn Fast, Standard, 
tutorials, samples MS _ Call 

Others: Prolog-1 ($359), Prolog-2 ($1895). 


Editors for Programming 





BRIEF Programmer’s Editor - undo, 
windows, reconfigure PC Call 


AI-OTHER C Screen with source 80/86 $ 75 
EMACS by UniPress - powerful, 


multifile, windows, DOS, MLISP, 
aoe S - SMALLTALK has programming. Source: $949 $299 
objects, windows, more PC $239 Entry Systems for C PC $325 
QNIAL - Combines APL with LISP ; . ; ; 
Library of sample programs included. Epson “ke EMAC S, Tulhe-like 


Pee. ep f | PC $375 ee titie by Spruce - Improve ae 
SFeAE er ARES: BIS BBa productivity. Syntax directed for 
Turbo ($69), Pascal ($229), or C ($239) 
Kedit - like XEDIT PC $115 
PMATE - power, multitask 80/86 $159 
VEDIT - well liked, macros, buffers, 


TransLisp - “Common subset, tutorial, -80- 
editor, PP, trace. Best to learn. ae Fata i ee PC 5 
20 Demos AllMS Only $ 75 : 


Ask about ATARI ST, Amiga 


72 





RECENT DISCOVERY 
Dan Bricklin’s Demo Program - 
Prototype quickly, with realism. 

User feedback without programming. 
All 250 ASC characters plus 

attributes. Subseting, building 

blocks, macros, thorough. PC $ 75 








C Language - Compilers 


BDS C - solid value, fast CPM80 $125 
C86 by CI - 8087, reliable MS Call 
Consulair Mac C w/toolkit MAC $299 


ECO C/88 MS $ 59 
Lattice C - from Lifeboat MS $289 
Lattice C - from Lattice MS $339 
Mark Williams - debugger MS $379 
Megamax - tight, full ATARI/ST $179 
Microsoft C 3.0- new, MS $259 
Q/C 88 by Code Works - Compiler source, 

decent code, cross MS $125 
Wizard C - Lattice C compatible, 

full sys. III, lint, fast. MS $379 


C Language - Interpreters 





C-terp by Gimpel - fullK & R,. OBJ 


and ASM, large progs. MS $249 
INSTANT C - Source debug, Edit to 
Run-3 seconds MS $399 


Interactive C by IMPACC Associates. 
Interpreter, editor, source 


debugger, profiler. PC $395 
Introducing C - Interactive C to 
learn fast, tutorial PC $115 


Professional Run/C has C plus 

ability to create add-in libraries, 

(Lattice C compatible) and load/ 

unload them. MS $199 
Run/C - improved MS $109 





C Libraries - General 





Blaise C Tools 1 ($109), C Tools2 PC $ 89 
C Food by Lattice - ask forsource PC $119 
C*LIB by Vance PC $129 
C Utilities by Essential - Comprehensive 
screen graphics, strings, file handling, 


memory mgmt. Source. MS $139 
Entelekon C Function Library PC $119 
Entelekon C Windows PC $119 


Entelekon Superfonts for C PC $ 45 
Greenleaf Functions - portable, ASM $139 
Polytron - for Lattice, ASM source $ 99 
Software Horizons - Pack | $129 


C Libraries - Communications 





Asynch by Blaise PC $149 
Greenleaf - full, fast PC $139 
Software Horizons - pack 3 PC $119 





C Libraries - Files 


FILES: C Index by Trio - full B + 
Tree, vary length field, multi compiler 


/File is object only MS $ 89 
/Pro is partial source MS $179 
/Plus is full source MS $349 


CBTREE - multiuser record locking, 
sequential, source, no royalties MS $ 99 








provides complete information, advice, guarantees and every product for Microcomputer Programming. 


We support MSDOS (not just compatibles) 
PCDOS, Xenix-86, CPM-80, Macintosh, 
Atari ST, and Amiga. 


C Libraries - Files Cont 
dbVISTA-full indexing, plus optional 


record types, pointers, Network. 
Object only - MS C, LAT, C86 $179 









Source - Single user MS $459 
Source - Multiuser MS $929 
C Support - Systems 
Basic C Library by C Source PC $139 


C Debug - Source debuggers - by 

Complete Soft ($269), MSD ($149). 
C Sharp - well supported, Source, 

realtime, tasks MS $600 
C ToolSet - DIFF, xref, source MS $135 
Lattice Text Utilities MS $105 
The HAMMER by OES SystemsPC $179 
H.E.L.P. By Everest Solutions PC $329 
Security LIB - add encrypt to MS C, 

C86 programs. Source $250 PC $125 


C - Screens, Windows, Graphics 





Curses by Lattice PC $110 
CView - input, validate PC $195 
C Power Windows PC $130 
Databurst - C or Basic PC $215 
GraphiC - source in C MS $219 
Topview Toolbasket by Lattice PC $219 
View Manager for C by Blaise PC $219 
Windows for C - fast PC $149 
Windows for Data - validation PC $209 
Advanced Trace-86 by Morgan 

Modify code on fly. PC $149 
CODESMITH - visual, modify 

and rewrite Assembler PC $119 
Periscope I - own 16K PC $269 


Periscope II - symbolic, “Reset Box,” 
2 Screen PC $119 
Pfix-86 Plus Symbolic Debugger by 
Phoenix - windows PC 
SOURCE PROBE by Atron for 
Lattice, MS C, Pascal. Windows 
single step, 2 screen, log file. 


olin 


Panel Screen Generator - Create 
screen with editor, generates 
code. Full data validation, 
windows, no royalties. Specify 
Lattice, MSC, C86, MS Fortran 
or PASCAL 


$289 


PC $395 


MS $239 


SERVICE: FREE NEWSLETTER 


Software development and AI on micros: trends, forecasts, controver- 
sies, innovations, and techniques. Plus an announcement of 80 NEW 
tools. CALL for the “Newsletter Packet.” 








Fortran & Supporting 


Forlib+ by Alpha - graph, comm. PC $ 59 
Fortran>> C-FORTRIX creates 


maintainable translations. MS $995 
MACFortran by Microsoft-full °77 MAC $239 
_MS Fortran MS $239 
No Limit - Fortran Scientific PC $129 
PolyFortran - xref, pp, screen PC $149 
Prospero - °66, reentrant MS $390 


RM Fortran-enhanced “IBM FIN” MS $429 
Scientific Subroutines - Matrix MS $149 
Statistician by Alpha MS $269 
Strings and Things-register, shell MS $ 59 


Multilanguage Support 


BTRIEVE ISAM 
CODESIFTER - Execution PRO- 
FILER. Spot bottlenecks. Symbolic. 
automatic. PC $109 
Multi HALO Graphics-Multiple video 
boards, printer, rich. Animation, 
engineering, business. 
ANY MS language, lattice, C86 PC $189 
For Turbo $ 89 
PLINK 86 - a program-independent 
overlay linker to 32 levels for all MS 
languages, C86 and Lattice. AMS $299 
Pfinish Performance Analyzer 


MS $199 


by Phoenix PC $219 
Profiler by DWB Associates PC $109 
PS MAKE by UniPress MS $ 79 
Screen Sculptor - slick, thorough, 

fast, BASIC, PASCAL. PC $109 


ZAP Communications - VT 100, TEK 
4010 emulation, full xfer. PC $ 65 


TURBO PASC AL and SUPPORT 





BORLAND: Turbo 3.0 
3.0 with 8087 or BCD 
3.0 with 8087 and BCD 
Turbo Graphix - graphs, windows 
Turbo Toolbox or Editor 
Turbo Tutor 
TURBO... Asynch by Blaise, full 
MetaWindow by Metagraphics 
Power Tools by Blaise - library 
Power Utilities - profiler, pp 
Professional - interrupts, macros, 
OTHERS: Screen Sculptor ($99), 
Pascal Pac ($100), Tidy ($45), 
Multi Halo ($89). 


FPA AAAAAHAHAH SH 
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Call for a catalog, literature, advice and service you can trust 











L1G oa DISCOVERY 
dBrief, the dBASE Assistant - 
optional syntax directed editing, 
screen gen, graphics, speed coding. 


dBASE II, III, Clipper. PC $ 95 
OUT aE AL 
APL + PLUS/PC $469 


ED/ASM-86 by Oliver Computing. 
Integrated editor/assembler/debugger 
w/8087 support. MS $ 95 

HS/FORTH - °79 & °83 Standards, full 
RAM, ASM, BIOS, interrupts. graph, 
multi-task, optimizer MS $250 

MacASM - fast $99 

MasterForth by MicroMotion - floating 
point and relocator extensions 
available: Call MAC or PC $125 

MS MASM -- faster MS $109 

Mystic Pascal - fast MS $ 64 

Paragon PASCAL - for performance: 
extensions like “packages”, “Iterators”’, 

5 memory models. 64 bit 8087 strings. 





Space vs. speed| MS $895 
PASM - by Phoenix MS $239 
PL1-86 - Ansi subset $499 
Prospero Pascal - full ISO + MS $390 
Turbo ED/ASM PC $ 85 
XENIX-86 & SUPPORT 
Basic - by Microsoft $295 
Cobol - by Microsoft $895 
Fortran - by Microsoft $429 


Xenix Complete Development System Call 


OTHER PRODUCTS 


CPRINT - by ENSCO MS $ 50 
dBASE to C Translator: dBx - 
no royalties, addon ISAM, 
Library Pioneer it MS $ 350 
Source $1000 
HTest/H Format - XT Fix PC $119 
Microsoft Windows PC32I5 
Opt Tech Sort - sort, merge MS $ 85 


Polymake - Directly execute or GEN a 
batch file, batch, interactive. MS $129 
Qwik Net - critical path, resources, 
thorough; usable. Source $995 PC $299 
SoftEst - Software Estimating and 
reporting. Pioneer it. MS $350 
Texsys - control source MS $ 89 
Visual Computer: 8088 - Simulates 
demos or any .exe. Com. Debugger. 
350 pg. tutorial PC 3 32 


Note: All prices subject to change without notice. 
Mention this ad. Some prices are specials. Ask about 
COD and POs. All formats available. 







“I would like to mention that I appreciate 

the way that the Programmer’s Shop does 

business. It is indeed refreshing to be able 

to call and get answers that you can trust in, 
to questions on various products.” 

Donald E. Winters 

MIS Software Development Inc. 


800-421-3006 


THE PROGRAMMER’S SHOP™ 


128-M Rockland Street, Hanover, MA 02339 
Mass: 800-442-8070 or 617-826-7531 186 










NEW HOURS 
8:30 AM - 8:00 PM EST. 


Circle no. 143 on reader service card. 
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METRIC MINIMIZER 


LISTING ONE (Text begins on page 24) 


/* GLOBAL.H 





ctype.h may be needed for an isspace used in read.c 


x 
Global include file for the Variable Metric Minimizer program. some systems need it, some don't! 


/ 
#define 


/* 


* 

* 

* (c) Copyright 1985, Billybob Software. All rights reserved. 
* This program may be reproduced for personal, non-profit use only. 
* 


c80 


* remove the above line if you are not using C/80 


x/ 
#ifdef 
/* 


* required for the Software Toolworks C/80 Version 3.0 compiler 
ef 


#define 
#include 
#include 


* 


c80 


double float 
Wforinct®. hi” 
“scanf.h™ 


* the following is the <math.h> for C/80 
*} 


float 


#else 


/* 


sin() , cos() , atan() , sqrt() , exp() , 
pow() , powl0() , 1ln() , log() , fabs() , atof() 


* other compilers 
x 


check your math.h for fabs and atof declarations! 
* 


#endif 


double 
struct 
{ 


a 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


dott): 
bound 


AHCSEA 

double up ; 
double lo ; 
double mi ; 


xydata 


double x ; 
double y ; 


BOUND 
DATA 


MATMAX 
NEPS 
STDES 
DFP 
BFGS 
ALLDONE 
NEGEDM 
BADMIN 
BADLS 


struct bound 
struct xydata 


VECMAX * VECMAX 
2 

0 

A. 

2 

me 

-3000 

-2000 

-1000 


#define MAXITERS 0 

#define OK 0 
#include <stdio.h> #define EDM1 1000 
#include <math.h> #define EDM2 2000 
#include <ctype.h> #define TOOSML 3000 


End Listing One 


(Continued on page 76) 
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EU? ISL! 
If you're a C programmer (or want to be one), we 
speak your language. Subscribe to The C Journal 
today, and start increasing your productivity right 


away. We give you information you can use on any 
machine — IBM PC™, UNIX™-based, Macintosh”, or 
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Create .COM programs with BASIC-like com- 
mands: LOAD, SAVE, EDIT, LIST, RUN. 
Reloadable into AT86, complete with all 
labels, comments & variable names. 


Macro Assembler support-scan .MAP and .LST 
files for labels and variable names 


Full-screen symbolic tracing of any program. 


Powerful conditional breakpoint facilities, 
including hardware “button” support (if 
installed) 


“Screen save” option, or use dual monitors 
Hex/decimal calculator & converter 

Best 8087/80286/80287 support on the market! 
And more... Priced at $175.00 


To order or request more information contact: 


pa Morgan Computing Co, Inc. 


(214) 245-4763 
P.O. Box 112730, Carrollton, TX 7501 


Circle no. 128 on reader service card. 





CP/M™ — micro, mini, or mainframe. 


@ in-depth reviews and feature articles — C com- 
pilers, editors, interpreters, function libraries, 
and books. 

@ hints and tips — help you work better and 
faster. 

e interviews — with software entrepreneurs that 
made it — by using C. 


@® news and rumors — from the ANSI standards 
committee and the industry. 


Limited Time Offer 


Join our thousands of subscribers at the Discount 
Rate of only $18 for a full year (regularly $28)! Call 
us now at (201) 989-0570 for faster service — don't 
miss a single issue of The C Journal! 


Please add $9 for overseas airmail. 


Trademarks — CP/M: Digital Research Inc. IBM PC: IBM 
Corp. Macintosh: Apple ComputerCorp. TheC Journal: 
InfoPro Systems. UNIX: AT&T Bell Labs. 


infoPro Systems SOE 
Denville, NJ 07834 


(201) 989-0570 
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will help you: 


C Programmers: 
Here are 8 ways You can be more productive 


Dear Microcomputer Programmer, 
Let me tell you how you can find and choose the best development software for your needs — software that 


* Speed your development efforts 
* Write even better programs 


Tools. 


There is no obligation. You risk nothing with our moneyback guarantee of satisfaction. 


First Aid for 
C Programs 
C ToolSet 


Save time and frustration when 
analyzing and manipulating C 
Peaems. 

DIFF and CMP-for “intelligent” 
file comparisons. 

XREF - cross references vari- 
ables by function and line. 

C Flow chart - shows what 
functions call each other. 

C Beautifier - make source more 
readable. 

GREP - search for patterns. 

PP - formats your code so that 
it is easier to read and under- 
stand. 

C Util - acts as a general pur- 
pose file filter. 

There are several other pro- 
grams for converting and printing 
programs. 

Portable. Full source code. 

CPM, MSDOS $135 


Yours for more productive programming, 


Even for Small Files: 
Convenient, 
Fast Access 


CBTREE— Only $99 

Why spend time writing file 
management code when you 
can use. consistent, flexible, 
documented, professional func- 
tion? Even multiuser record lock- 
ing and variable-length records 
are supported. 

Full, balanced Btree support 
includes use of multiple keys, un- 
limited number and length of 
keys. 

se this powerful ISAM, even 
if you’ve previously done with- 
out. 

Learn how to write systems for 
managing large files by using 
CBTree source as a guide. Modify 
it and transfer it to another 
operating environment without 
royalties. 


Get File Access with 
TIGHTER Control 
db_VISTA Data Management 


Full source, no royalties and “normal” indexed file management 
are part of db_VISTA. Get more for the price of only an ISAM. 

ioe can minimize data stored and access records even faster and 
more logically than just using indexes. Example: address and trans- 
action data should not require redundant oe of customer 
names or numbers. Use pointers. Related data fields point to other 
related groups - the “network model” of data. 

Use db_VISTA as a “normal ISAM” or save programming time, ac- 
cess time and file size. Lattice, C86, Williams, Desmet, Microsoft C. 

MSDOS Multiuser source $995, Object $495 


Single user source $450, Object $169 


Unix, Xenix, & MacIntosh versions also available. Call for details. 


Shorten Development 
Time, Cut Frustrations 
BRIEF, The Programmer's Editor 


Compile within BRIEF; use autoindent; “templates”, C specific 
error support... use windows, UNDO, and multiple large files. 


But edit YOUR WAY. 


Every feature you’d expect and more are integrated elegantly - 


and it can be modified by you. 


You deserve: 


“ _. the best text editor you can buy.” - John Dvorak, InfoWorld, 


7/8/85 


“ the best code editor. . .” David Irwin, Data Based net 


If you call for our advice, you must 
product you purchase from The Pro 
receive a refund or replacement. 


catalog. 


PCDOS $Call 
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* Increase productivity 


* Reduce your programming frustration 

All you have to do is consider one of these eight products for C programmers (or the 97 other C compilers, 
interpreters, support libraries, debuggers, or addons we offer). Then call one of our knowledgeable consultants 
- toll free - for details, comparisons, or for our specially prepared packets on C, C Libraries, or C Productivity 


SORT/MERGE Files 
for Clean, Fast 
Maintenance 
with OPT-TECH SORT 


Performance should not suffer 
with DOS or other “free” sorts. 
ISAMs alone are slow when 10% 
or even less is changed/added. 
OPT-TECH includes: 

- CALLable and Standalone use 

-C, ASM, BAS, PAS, FTN, 
COBOL 

- Variable and fixed length 

-1to9 fields to sort/merge 

- Autoselect of RAM or disk 

- Options: dBASE, BTrieve files 

-1to10 files input 

- Nosoftware max for # Records 

- Allcommon field types 

- By — headers, limit sort 

- Inplace sort option 

- Output = Record or keys 


— Bruce W. Lynch, President 


Add Communications 
Features to 
Your Programs 
Greenleaf Comm Library 


Greenleaf now enables you t 
communicate with remote sys 
tems or databases with an asyn 
chronous communications library 
forC. 

Individual transmission and re 
ception ring buffers combine witl 
an interrupt driven system. Thi: 
eliminates the extra function o 
separately calling up the com 
munications program. 

Included are 1 library/objec 
files, 100 functions; 100 page 
manual, complete source code, i 
brary tailor-made to suit compile 
and memory. Hayes-compatibl. 
modem commands, and a com. 
plete sample file transfer pro 


Try what you’re using on an XT: gram. MSDOS $145 
i 128 byte records, 10 byte 
key in 33 seconds. MSDOS $85 
Make REAL TIME 
Programming Practical 
Csharp Realtime Toolkit 


Data acquisition, process control, robotics and devices monitor- 
ngappncanens become practical with Csharp! 
ull source code helps tailor programs to various boards and 


applications. 


eentrant, interrupt handling routines help schedule and react. 
Fast graphics routines help visualize what is happening. 
Control multiple ports reliably, schedule tasks based on events, 
manage priorities — all with modular, tested, and reliable routines. 
Assess and manage the state of hardware at the object level. Let 


Csharp handle the details. 


Portable C source supports RT11 UNIX and MSDOS $600 


Fast File Access with Source 
Variable Length Fields Save Space 
CIndex ISAM Product Line 


C-Index contains a high performance ISAM, balanced B + Tree in- 
dexing system and variable length fields. The result is a complete data 
storage system to eliminate tedious programming and add efficient 


performance to your programs. 


Features include random and sequential data access, virtual 
memory buffering, and multiple key indexes. 

With no royalties for programs you distribute, full source code, and 
variable length fields C-Index/Plus fits what you are likely to need. 

Save time and enhance your programs with C-Index/Plus. 
MSDOS $349. With C-Index/File for $89, or/Pro for $179. 


THE PROGRAMMERS SHOP 


be completely satisfied with the 
rammer’s Shop. If not, you will 
all now for details or our new 


Rockland Street 
ae Massachusetts 02339 


800-421-8006 
In Mass. 800-442-8070 


617-826-7531 





METRIC MINIMIZER 


LISTING TWO (Listing continued, text begins on page 24) 


/* VMM.C 
* 
The main driver routine, function library routine 
and all library functions for vmn. 
(c) Copyright 1985, Billybob Software. All rights reserved. 
This program may be reproduced for personal, non-profit use only. 


+ + H+ H 
™~s 


#include "global.h" 


#define DMAX 50 
#define NFUN 3 


/* Size of experimental data array *y/ 
/* Num of functions in function library */ 


[RR KKK KK KKK KKK IK KK KKK KKK KR KK KK KKK KKK KK IK KKK KK RK KK KR IK RK KK RK KK KK / 


main () 
{ 

static int nparam ; /* number of parameters a 
static double const[VECMAX] ; /* constants used in function */ 
static double param[VECMAX] ; /* parameters to be found “} 
Static double dstep[VECMAX] ; /* step sizes for derivatives mf 
static double epsilon[VECMAX];/* stopping criteria */ 
static BOUND limit [VECMAX] ; /* limits if constrained */ 
static char *pname [VECMAX] ;/* parameter names ¥/ 
Static double gO ; /* expected value of minimum *f 
static int debug ; /* debug level, 0 if off or f 
static int itermin ; /* minimum number of iterations */ 
static ant iterlim ; /* maximum number of iterations */ 
static int nreset ; /* reset y after this many iters */ 
static DATA exp [DMAX] ; /* xy experimental data */ 
static’: ant npoints ; /* number of data points oe 
static double *(*fun)() ; /* ptr to function to minimize w] 
static... int iters ; /* number of iterations it took */ 
Stat ic. {ant retcode ; /* return code from minimization */ 
static double ogmin ; /* the value at the minimum ry 
static. int method ; /* method used to update y */ 
Static int control ; 


int 2 pest 


for, (i=) 7) 644155 
{ 
raz ( &nparam, &itermin , &iterlim, é&nreset , S&debug , 
limit , dstep , param, &g0 , epsilon , &method ) ; 


if( (control = reader ( &fun , const , &nparam, param, 
limit , dstep , pname , epsilon , &itermin , 
&iterlim , &nreset , &g0 , &debug , exp , 
&npoints , DMAX , &method)) == ALLDONE ) 
break ; 


4f= ¢ controi”) 
continue ; 


if ( dfault ( nparam, é&itermin , &iterlim, &nreset , 
epsilon , limit , dstep , debug ) ) 
continue ; 


retcode = minim ( nparam , fun, param, dstep , limit , 
gO , itermin , iterlim, epsilon , &gmin , 
&iters , debug , nreset , exp , npoints , 
const , method ) ; 


PLANE (CORR RR III OI II I IIIA 1 IT) 


printf("\t* results from dataset %2d *\n", i) ; 
PLANE (M\C RRR RR KK KR I I KO I IK \ Tt) 


printf ("stopped after %ld iterations, ", iters tw 
switch ( retcode ) 


case NEGEDM : printf("negative e.d.m.\n") ; break 


case BADMIN : printf("new min > last min\n") ; break ; 
case BADLS : printf("line search failed\n") ; break ; 
case MAXITERS: printf("maximum iterations\n"); break ; 
case EDM1 : printf("e.d.m. within tol.\n") ; break ; 
case EDM2 : printf£("e.d.m. within tol.\n") ; break ; 
case TOOSML : printf("change too small\n") 3: break 3 
default : printf("unknown reason!!!\n") ; break ; 


} 


printf ("value of the minimum was %11.4e\n", gmin ) 
printf ("parameter values at minimum:\n") 


. 
’ 


(Continued on page 78) 
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Now You Know 


BRIEF is BEST 





















‘“BRIEE, The Programmer’s Editor, is simply the best text 
editor you Can buy.” John Dvorak, INFOWORLD 7/8/85 


The Program 


Editor with 
the BEST 
Features 


Since its introduction, 
BRIEF has been sweep- 
ing programmers off 
their feet. Why? 
Because BRIEF offers the 
features MOST ASKED 
FOR by professional 
programmers. In fact, 
BRIEF has just about 
every feature you’ve 
ever seen or imagined, 
including the ability to 
configure windows, 
keyboard assignments, 
and commands to 
YOUR preference. One 
reviewer (David Irwin, 
DATA BASED ADVISOR) 
put it most aptly, 
‘“(BRIEF). . .is quite 
simply the best code 
editor I have seen.”’ 


Solution 


Systems™ 


COMPILER SUPPORT 


No matter what compiler you have, it will run inside 
BRIEF. If errors occur during compilation, the sup- 
plied macros place your cursor on the line with the 
first problem and display the compiler’s message. After 
you make your corrections, you skip to the next error 
with one keystroke. BRIEF automatically moves your 
cursor to the right place, even if you've added or deleted 
lines. 
















BRIEF is preconfigured (using the built-in macro 
language) for the Microsoft Macro Assembler v 4.0, 
and the Microsoft, Computer Innovations, Lattice, and 
Wizard C compilers. If you use another product, you 
can modify the macros to support it. 


Every Feature You Can Imagine 

e Unlimited File Size 
-(even 2 Meg!) 
Reconfigurable Keyboard 
Context Sensitive Help 


e Search for ‘‘regular 
expressions’ 


e Mnemonic Key 


Compare these features 
with your editor (or any 
other for that matter). s 
© FAST » 
e Full UNDO (N Times) 

e Edit Multiple Large Files 
¢ Compiler-specific 
support, like auto “ 
ident syntax check, PS EnES : 
compile within BRIEF,  ° Horizontal Scrolling 
and template editing e 
Exit to DOS inside BRIEF 
Uses all Available Memory ® 


Comprehensive Error 
Recovery 


A Complete Compiled 


Tutorial Programmable and 
Repeat Keystroke Readable Macro Language 
Sequences e EGA and Large Display 
e 15 Minute Learning Time support 
e Windows (Tiled and e Adjustable line length 
Pop-up) up to 512 


MONEY-BACK GUARANTEE 





Program Editing 
YOUR Way 


A typical program editor 
requires you to adjust 
your style of programming 
to its particular require- 
ments - NOT SO WITH 
BRIEF. You can easily 
customize BRIEF to your 
way of doing things, 
making it a natural ex- 
tension of your mind. 
For example, you can 
create ANY command and 
assign it to ANY key - 
even basic function keys 
such as cursor-control 
keys or the return key. 


The Experts Agree 


Reviewers at BYTE, 
INFOWORLD, DATA 
BASED ADVISOR, and DR. 
DOBB’S JOURNAL all came 
to the same conclusion - 
BRIEF IS BEST! 


Further, of 20 top in- 
dustry experts who were 
given BRIEF to test, 15 
were so impressed they 
scrapped their existing 
editors! 


D \< 
pot COPY pROTECTE 
Z 


Try BRIEF ($195) for 30 days - If not satisfied get a full refund. 


TO ORDER CALL (800-821-2492) 


SOLUTION SYSTEMS, 335-D WASHINGTON ST., NORWELL, MA 02061, 617-659-157] 


Circle no. 147 on reader service card. 





BRIEF is a trademark of UnderWare 


METRIC MINIMIZER 


LISTING TWO (Listing continued, text begins on page 24) 


for (j=0 ; j<nparam ; ++}j) 
printf("%15s %11.4e\n" , pname[j] , param[j]); 


printf (A IIR III IOI IO IO I IR II II III ICI IF) 


} 


[BKK KKK KKK KK KR KKK IK KK KKK KKK KKK KKK KR IK KK KK KK KK KR IKK IK KR KOK IKK KK IKK KK 


* Function library. Note that NFUN is #defined at the top of this 

x module. 

=F 
funlib ( funname , fun , np, nc, pname ) 
char funname[] ; /* name of function to be minimized */ 
LHe * Duan: => /* address of function (non-portable) */ 
int ers /* number of parameters in the function */ 
int ‘nes /* number of constants in the function xy 
char *pname[] ; /* parameter names vector */ 
{ * 


* use funname to return fun and np, nec froma list 

* for each new function in the library, you must: 

(1) declare the function "double" and link it in the load module 
(2) declare the function below under "functions available" 

(3) add an entry in the function table,including parameter names 
(4) add an entry in the switch table in the code 

(5) update the value of NFUN 


+ 


Available functions are: 


t+ & ££ HH KH 
™~ 


double cohen() ; 
double  sinus() ; 
double rosen() ; 


/* 
* function table 
*/ 
static struct 
{ 
char *name ; /* function name in funname call * / 
int nnpp ; /* number of parameters in the function */ 
int. -nnce +; /* number of constants in the function */ 
char *ppnn[VECMAX]; /* list of names for the parameters */ 
} fctlib[NFUN] = { 
{* <Q." -*7 "cohen", 220: 54 "alpha =<. "beta® Ly 
/* 7 x / { "sine" y 4, 0 po" E mpi" 3 wp2" > wp 3" } ‘ 
/* 2 x / { "rosen" , 10, 5 ; Wyy , "yo" 5 Wy 3" $ "y4" . MWy5" ; 


Wy6" F Wy7" - WyQr ; My Qg" Z Wy10" } 
int +. Ge 


for ( j=0 ; j<NFUN ; ++3 ) 
if ( ! strcemp( funname , fctlib[j].name ) ) 
break ; 


if (j==NFUN) 
return ( 1}; 


fctlib[j].nnpp ; 
Fctlibt{ 3] ince: = 


*nc 


for (k=0 ; k < *np ; ++k) 
pname[k] = fctlib[j].ppnn[k] ; 


switch( j ) 
{ 


case 0 : *fun = cohen ; break ; 
case 1 : *fun = sinus ; break ; 
case 2 : *fun = rosen ; break ; 


} 


return ( °6.}.:s 


} 


OCI III OI III III ITO I IIIT TI IOI IIS IIIS III III IIIS IIIS ISS 


dcuble cohen ( const , xx, data, npoints , user ) 


double const[] ; /* vector of constants used by this fen */ 
double xx[] ; /* the current values of the vector x xf 
(Continued on page 80) 
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METRIC MINIMIZER 


LISTING TWO (Listing continued, text begins on page 24) 


DATA data[] ; /* dummy a? 
int npoints ; /* dummy */ 
int user ; /* dummy, reserved for each user! = 
{ e 


computes the function to be minimized 


this is the test function given in Cohen, page 280 
note that there are no constants for this fen -- 
the vector const is included for compatability with other fcns 


+ + H HF HH 


note program calls function with user = 0 


*/ 
double: fii? €2.5:.-t3 + £4 


tl = (xx[1] - xx[0]*xx[0]) ; 

2 me Es EAS 

t3 = (xxf{0}* (1.0 - xx[{1]) + 1.0); 
t4 = :t3 > * .t3°3 


retour: (2t274+-.t44--3 
} E 


[RK II II III III I I TTI I TI KK IK IIT III TTI I TT I IK I IK IK IK I IK IK IK I TK IR IK IK KKK KICK KK ICI / 


double sinus ( const , xx , data , npoints , user ) 


double const[] ; /* vector of constants for this fen */ 
double xx[] ; /* parameter vector wf 
DATA data[] ; /* data from file aE 
int npoints ; /* number of data points , a 
int user ; /* user parameter *7 
{ 
/* 
* extract parameters for polynomial fit to sine function 
xf 
aqubiie: £3. )}-t25 43", 7-44 2 
int i; 


for ( i=0 , t4 = 0.0 ; i<npoints ; i++ ) 
{ 
data({i}].x * data[i].x ; 
data[i].x * 
(xx (0) + t1*(xx[1) + t1*(xx[2] + t1*xx[3]) )) ; 
t3 = (data[i].y - t2)/data[i].y ; 
t4- +2 £3. *.t3 3 


tl = 
t2 = 


} 


return( t4 /= (double) (npoints-4) ) ; 
} 


[RII IOI IO IO IO OI OO III II IOI I III I / 


double rosen ( const , xx, data , npoints , user ) 


double const[] ; /* vector of constants used by this fen */ 
double xx[]) ; /* the current values of the vector x *f 
DATA data[] ; /* dummy . */ 
int npoints ; /* dummy oF 
int user ; /* dummy, reserved for each user! ay 
{ 
/* 
* Rosenbrock's test function 
*] 
doubte E257: 62. 5. £3% 3 
int J g2 AQ 7 


for »(-180-,° me). :t3 = 0.02 1<10 ¢ 1422.4: +tm ) 
{ 


tls xxft}. 2 
t2 = xx[l+1] ; 
t3 += const [m] * (t2—-t1*t1) *(t2-t1*t1) + (1.0-t1)*(1.0-t1) ; 
return( t3 )° ; 
} End Listing Two 
LISTING THREE 
/* MINIM.C 


* 


* The main minimization routine 
* (c) Copyright 1985, Billybob, Software. All rights reserved. 


* This program may be reproduced for personal, non-profit use only 
af 3 ; 


#include “global.h" 
(Continued on page 82) 
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METRIC MINIMIZER 


LISTING TH REE (Listing continued, text begins on page 24) 





[9 IIR IIIT III III IOI IO I IO I I I Ik tee / 


minim (n, fun, xextern , xstep , xlim, gO, itermin , iterlim, epsilon , 
gmin , iters , debug , nreset , data , npoints , const , method ) 
int en /* number of parameters in the fit <7. 
double (*fun) () ; /* pointer to the function to minimize i 
double xextern[] ; /* vector containing the starting values of 
the parameters; returns values at minimum wf 
double xstep[] ; /* step sizes on parameters for deriv calcs <7 
BOUND xlim[] ; /* limits on the vector x «f/f 
double gO ; /* expected value of the minimum of the fen */ 
int itermin ; /* minimum number of iterations seit 
int iterlim ; /* limit on the number of iterations */ 
double epsilon[] ; /* iteration control parameters =f 
double *gmin ; /* value of minimum for returned vector x ah 
int *iters. 3 /* number of iterations to converge xf 
int debug ; /* flag = 0 for no print, >0O for debug print 7} 
int nreset ; /* reset limit for the y matrix “fF 
DATA data[] ; /* the data “ff 
int npoints ; /* number of data points = 
double const[] ; /* vector of constants required by fen */ 
int method ; /* update method for the matrix y ef 
{ 
/* 
* variable metric minimization algorithm 
* Reference (using DFP method) is: Numerical Analysis 
* A.M. Cohen et. al. 
- Halstead Press 
"a John Wiley and Sons 
7 1973 
* pages 276-280 
* See also original papers by Fletcher and Powell 
ay 
int pds. 26 
static int ycount ; /* counter for resetting the Y matrix */ 
static double y[MATMAX] ; /* the Y matrix SJ 
static double a[MATMAX] ; /* the A and B matrices are calculated to =p 
static double b[MATMAX] ; /* update the Y matrix at each iteration */ 
static double xintern[VECMAX];/* Parameters in internal coordinates */ 
static double zint[VECMAX] ; /* gradients in internal coordinates */ 
static double znewi[VECMAX] ; /* same for the next iteration «/ 
static double sigma[VECMAX] ; /* changes vector */ 
Static double s[VECMAX] ; /* changes direction vector “/ 
static double xi[VECMAX] ; /* change in gradient vector between */ 
* iterations ay 
static double xold[VECMAX]} ; /* holds previous values of x x / 
static double alpha ; =F 
static double g ; /* value of fen for a given vector x */ 
static double gnew ; /* likewise for the next iteration ry 
double dot() ; 
/* 
* get started 
ef 
g = (*fun)( const , xextern , data , HPOLACS + .0°:)}° > 
gozinta( n, xintern , xextern , xlim Sar 
derivs (n, fun, xintern, xstep , xlim , zint , data , 
npoints , const , debug); 
/* 
* main loop 
“F 
for (.1 =°1 7 yeount: = nreset >; i-<= iterlim ; ++i , ++ycount ) 
{ 
if (ycount == nreset) 
{ 
peseet nN... -V:}+ 
ycount = 0 ; 
} 
if (debug) 
{ 
PLAntE("\C\t++++ttteseeetesassse se ln) 
Printf("\t\t+ Begin iteration %2d +\n", i ya 
(Continued on page 84) 
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_ METRIC MINIMIZER 


LISTING THREE (Listing continued, text begins on page 24) 


printf ("\t\t++t+++ttettts+tttete+++e ln") ; 

printf ("external parameter values are:\n") ; 

vout( n , xextern ) ; 

printf ("internal parameter values are:\n") ; 

vout (2 n-. xintern. J=3 

printf ("internal gradient vector is:\n") ; 

VOMNE (SARC: Je 3} 

printf ("approximate inverse hessian matrix is:\n") ; 
MOUG(: TE, Yi) 

printf("the current minimum is --->%11.4e<---\n", g ) ; 


} 


matveeé:. Con 5.0y 42 22ane ss) 
for) ¢{j=0 3-4<n ; +44) 
{ 
xold[{j] = xintern[j] ; 
s{j] *= -1.0 ; 
} 


if (debug>1) 
{ 


printf("vector s is:\n"); yout (nis 3 


} 


/* 
* do line search and quit if it fails 
* line search was successful if getalpha returns OK ( zero ) 


ey. 


if: (Fe. getalpha ¢n:,. fun: xintern; “*step >) xlin’) 2itnt:; 
a’, g:.,g0: >> &alpna~,. debug , data: ;npoints ,-const—})-) 


break ; 
/* 
* update parameters 
ef 
* for (j=O ¢ js<n ¢ ++}) 
{ 
sigma[j] = alpha * s[j] ; 


xintern[j] += sigma[j]; 
} 
if (debug>1) 


{ 


printf("vector sigma is:\n") ; vout( n , sigma ) ; 
} 
/* 
* get values for next iteration 
ey 


gozouta (nn, xintern , xextern , xlim ); 
gnew = (*fun) ( const , xextern , data , npoints , 0) ; 


derivs (n, fun, xintern , xstep , xlim, znewi , 
data , npoints , const , debug ) ; 


for (j=0 ; j<n ; ++}) 
xi({j) = znewi[j] - zint[j] ; 


if (debug>1) 
{ 
printf ("orthogonality satisfied to %11.4e\n", 
dot (nn, znewi , sigma ) ) ; 
printf ("vector xi is:\n") 
VOGUE no BE DS 


} 


/* 
* decide whether to continue or not 
* continue if decide returns OK ( zero ) 


ey. 


if ( re = decide( g , gnew,n, znewi, sigma , y , 
epsilon , itermin , i, debug ) ) 
break ; 
/* 
* update all other quantities for the next Pass 


(Continued on page 86) 
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METRIC MINIMIZER 


LISTING THREE (Listing continued, text begins on page 24) 





* three methods available: 

* steepest descent (slowest and included only for completeness) 
* Davidon Fletcher Powell (default, empirically the favorite) 

* Broyden Fletcher Goldfarb Shanno (thought to be better by 

* some) 

* The method is selected by keyword on input. 

"f 


if ( method == STDES ) 
; /* nothing to do, y is not updated */ 


else if ( method == DFP ) 


dfoa s(n } sigma. ,. «iL, a. debug:)” } 
dfsob: C7n::, yY pie Oy Sener: ye3 
gety (n, a oe YB Yyo ¥5/.- Bebug'}.3 


else if ( method == BFGS ) 


bigsa “(ney Y- Sioma > Re a: 5 debug.) 

Bhosb (ny -y f Bipma ses 2a: debug.) s 

gety oC sas Bee debug ) ; 
} 


for (j=0.; j<n ; +44) 
zint(j]) = znewil[j] ; 


gozouta (nn, xintern , xextern , xlim) ; 
Gg = gnew ; 

/* 

* all done with this pass 

*/ 
} 


/* 
* outside of the main loop here 


wf 
*iters: #3" Ss) berdin).? Atertim 2 4 


/* 
* first handle the case of abnormal exits 
* these have returned re negative above, from either getalpha or decide 


“L 


PG re-=o<) 
{ 
for (j=0; j<n; ++}) 
xintern[j] = xold[j] ; 
gozouta (nn, xintern , xextern , xlim) ; 
*gmin = g ; 


else 
{ 
/* 
* regular exit and fall through These represent positive or 
* zero values of rc; zero means max iterations. 
=/ 
gozouta (n, xintern , xextern , xlim) ; 
*gmin = gnew ; 
} 
if (debug) 


{ 
print£ (™\t\t+++++++4+4+4+4+4444444444444\n") 
printf("\t\t+ exiting minimization +\n") 
print£ ("\t\t++++++++ttttteee¢teet+e+al\n") =; 
printf("\tnumber of iterations was: %lld\n",*iters) ; 
printf ("\t return code is: %lld\n",rc) ; 
printf ("\t minimum is: %11.4e\n", *gmin) ; 
printf ("best parameter values:\n") ; 
vout( n , xextern ) ; 
printf("last internal gradient vector:\n") ; 
vout( n, znewi ) ; 

} 


Peruri € YS.) +; 


End Listing Three 


Listings to be continued next month 
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The Conference 
That Takes 

A Hard Look | 

At The Business 

Side Of Software. 


The Software Business Conference April 2 & 3, Los Angeles, California 








This prestigious conference, held in conjunction with General Sessions 
COMDEX/Winter, will provide a forum for developers, 
publishers and resellers of software to discuss common 
interests, challenges, and solutions. 


Managing the Successful Software Company; Software 
Development Technical Strategies; Software Development 
Management Strategies; Exploiting the New Software 
The Software Business Conference will also create an —_—-~ Product; Supporting the New Software Product; The 


environment in which to discuss and establish new Great Code Rush: Prospecting for New Packages 
business relationships. Workshops in Software Entrepreneurship 
By bringing the three main bodies of the software Workshop in Creative Financing; Workshop in Creative 


industry together at one major conference, the Software Marketing and Selling 
Business Conference proposes to raise the visibility of 
software issues worldwide, and to assist in bringing high 


idaldy products ti) the market To be part of this exciting business and learning 


experience, send today for complete registration 

To ensure that the Conference meets its goals and is information. 

relevant to your interests, these and other noted a aa 
distinguished industry leaders are helping to shape this ye._| Want To Take A Hard Look At Software, Too 
major event: Joel Berez, President, Infocom, Inc.; Daniel send Me Detailed Information. non 
Bricklin, President, Software Garden, Inc.; Seymour 


Rubenstein, President, MicroPro International Corp.; a 
Gary Kildall, President, ActiVenture Corp. Address 
Software Business Conference Schedule City/State/Zip 
Plenary Sessions Phone 


A Marriage of Objectives; Keeping Pace with a Changing 


PC Environment. I'ma O Developer Ui Publisher U Reseller Other 


Marketing Sessions Mail to: Software Business Conference 
300 First Avenue 
What’s Selling? The Software Marketplace; Who's Needham, MA 02194 


Buying? Applications and Users. 


Presented by 


THE 
INTERFACE 
GROUP, Inc. 


The world’s leading producer of computer and communications conferences and expositions. 
300 First Avenue, Needham, MA 02194 ©Copyright 1986 
Circle no. 260 on reader service card. 


CONCURRENCY 


LISTING ONE (Text begins on page 36) 


{task #1: keyboard -> serial out 
task #2: serial in -> video out 
control-C will abort program} 
program main; 
const TASKS=2; 
STACKSIZE=70; 
{next 7 constants are needed for the Kaypro} 
KDATA=5; 
KSTAT=7; 
BAUDP=0; 
SDATA=4; 
SSTAT=6; 
RMASK=1; 
TMASK=4; 


CC=3; 
type stack = array[0..STACKSIZE] of integer; 
tasknum = -1..TASKS; 
var sp0,spl,sp2: integer;{when zero, task not initialized} 
oldn: tasknum; 
nextn: tasknum; 
Procedure defer; forward; 
procedure exit; 
begin 
writeln('TASK #',oldn,' terminated.'); 
oldn:=-1; 
defer; 
end; 
function keyin:byte; 
begin 
repeat 
defer; 
until (RMASK = (RMASK and port [KSTAT])); 
keyin:= port [KDATA] ; 
end; 
procedure videout (b:byte) ; 
begin 
bdos (6,b) ; 
end; 
function serin: byte; 
begin 
repeat 
defer; 
until (RMASK = (RMASK and port [SSTAT])); 
serin:= port [SDATA]; 
end; 
procedure serout (b:byte}; 
begin 
repeat 
defer; 
until (TMASK = (TMASK and port [SSTAT])); 
port [SDATA] :=b; 
end; 


Procedure taskl; 
var mystack: stack; 


key: byte; 
begin 
stackptr:=addr (mystack [STACKSIZE] ); 
repeat 
key:=keyin; 
if key=CC then exit 
else serout (key); 
until false; {forever} 
exit; 
end; 
Procedure task2; 
var mystack: stack; 
begin 
stackptr:=addr (mystack [STACKSIZE] ); 
repeat 
videout (serin); 
until false{ forever}; 
exit; 
end; 
procedure initall; 
var i: integer; 
Begin 
spl :=0; 
sp2:=0; 
oldn:=0; 
{initialize Kaypro's SIO} 
port [BAUDP] :=14; {9600 Baud} 
port [SSTAT] :=24; 
port [SSTAT] :=4; 
port [SSTAT] :=68; 
port [SSTAT] :=1; 
port [SSTAT] :=0; 
port [SSTAT] :=3;7 
port [SSTAT] :=193; 
port [SSTAT] :=5; 
port [SSTAT] :=234; 
end; — 
Procedure schedule; 
begin 
if oldn=TASKS then nextn:=1 
else nextn:=oldntl; 
end; 


procedure defer; 
var sp: integer; 
begin 
case oldn of 
O: sp0:=stackptr; 
1: spl:=stackptr; 
2: sp2:=stackptr; 
end{case}; 
schedule; 
oldn:=nextn; 
case nextn of 
O: sp:=sp0; 
1: sp:=spl; 


(Continued on page 90) 


TRUE MULTI-TASKING! 


TASKMASTER is high tech, available now, and it works with virtually all DOS software. 
Give Lotus, Sidekick, Multimate or most any DOS program the advantages of real multi- 
tasking. It’s simple to use, compatible, bulletproof and most of all, it won’t slow you 
down. That’s because TASKMASTER only shares your computer when YOU want it 
shared. At other times, your visible program runs at full speed, waiting for you to 
easily switch from program to program at the touch of a key. Compatible with most 





DOS computers including the IBM PC/XT/AT/Jr. series, you can order TASKMASTER today 
for only $69.95 + 5.00 Shipping and Handling, VISA and Mastercard. 


ORDER LINE 
(206)367-0650 


Taskmaster trademark Sunny Hill Software. 
Lotus trademark Lotus Development Corp. 
Sidekick trademark Borland Intl. 
Multimate trademark Ashton Tate. 








Sunny Hill 


Software 


13732 Midvale North Suite 206 
Seattle, Washington 98133 


Circle no. 172 on reader service card. 
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BOOKSHELF” 
Series 100 


Priced from 
— eee $895.00 
10MB System 
Only $1645.00 





Fast, compact, high quality, 
easy-to-use CP/M system 







Features 
®@ Ready-to-use professional CP/M @ Comprehensive Software Included: 
computer system @ Enhanced CP/M operating system 
®@ Works with any RS239C ASCII terminal with ZCPR3 
(not included) ®@ Word processing, spreadsheet, 
©: Network avaiiabie relational database, spelling checker, 
@ Compact 7.3 x 6.5 x 10.5 inches, Cr Mien 
12.5 pounds, all-metal construction @ Operator-friendly shells; Menu, 
@ Powerful and Versatile: Friendly™ 


@ Based on Little Board/PLUS single- @ Read/write and format dozens of 
board computer floppy formats (IBM PC-DOS, KAYPRO, 

@ Two RS2332 serial ports OSBORNE, MORROW ... ) 

@ One Centronics printer port @ Menu-based system customization 


@ One or two 400 or 800 KB floppy @ Expandable: 
drives Rea : 
@ 10-MB internal hard disk drive option © Floppy expansion to four drives 


@ Hard disk expansion to 60 megabytes 
@ SCSI/PLUS™ multi-master I/O 





THE HAMMER 


Software Tools in C 


“| have already saved weeks of coding . . . thank you for providing 
such a useful tool..." - G.T. 





Let The HAMMER Library of over 150 routines save you valuable 
development time and effort: 


LIBRARY FUNCTIONS 
¢ Multi-level 123-like MENUS 
e DATA ENTRY 
MULTI-FIELD mode for Full-Screen data entry 
Single-Field mode for individual fields 
Data Verification 
Full Editing within each field 
Strings, dates, and fixed decimal numbers 
“Option” fields force user to pick from a given set 
e SCREEN MANAGEMENT 
® cursor positioning 
e full attribute control 
e Date/time/string conversions 
e BIOS access/pattern matching/and more 


UTILITIES 
e HARC-~ -complete Source File Archiver 
e HAMCC -compile designated source modules residing 
WITHIN an archive file under any of the supported 
compilers and optionally place resulting object 
modules in a library. 


SUPPORTED C COMPILERS: 
Microsoft C 3.00 e ClI-C86 e Mark Williams C86 
DeSmet C e Lattice 


INCLUDES source code and manual 


e display boxes & tables 
e scrolling and clearing 


$195 plus shipping 
VISA/MC accepted 


0.E.S. SYSTEMS 









expansion bus 
1906 Brushcliff Rd. ¢ Pittsburgh, PA 15221 ¢ 412/243-7365 


Looking for the right tool for the job? 
REACH FOR THE HAMMER 


Circle no. 137 on reader service card. 
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THE CLOSEST THING TO COMMON LISP AVAILABLE mes YOUR PC 






T/MAKER lil is a trademark of T/Maker Company. 

IBM is a registered trademark of International Business Machines 
Z80A Is a registered trademark of Zilog, Inc 

CP/M is a registered trademark of Digital Research 
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COMPUTERS. INCORPORATED 
67 East Evelyn Ave. « Mountain View, CA94041 « (415) 962-0230 « TELEX 4940302 


Circle no. 158 on reader service card. 









APPLICATION SBrEGRT. 


Save and restore full environments 
















RICH SET OF DATA TYPES 
Bignums, for high precision arithmetic 
8087 support, for fast floating point User-specified initializations 
Arrays, for multidimensional data Assembly avian interact Read macros, to extend the input syntax 
Streams, for device-independent i/o —r— Extendable arithmetic system 

| _ Customizable window ayseM 


EXTENDABILITY 
defstruct, to add data types 
Macros, to add control constructs 






























Packages, for partitioning large systems _ HARDWARE REQUIREMENTS 
Characters, strings, bit- — _ 8088 or 8086 CPU, MSDOS Operating System 
: 390K RAM or more 


5'%’’ diskettes 
and manual $300.00 
- Foreign orders add $30.00 for airmail. 

- . US. Shipping included for prepaid orders. 


DEBUGGING SUPPORT 
step, for single-stepping 
trace, for monitoring 
break, for probing 
inspect, for exploring 
Flexible error recovery 
CUT prey: printer 


MSDOS INTERFACE 
Random access files 

_ Hierarchical directory access 

| MSDOS calls 


















FULL SET OF CONTROL PRIMITIVES 
flet, labels, macrolet, for local functions 

if, when, unless, case, cond, for conditionals 
Keyword parameters, for flexibility 

Multiple-valued functions, for clarity 

Flavors, for object-oriented programming 

Stacks, for coroutining 
Closures, for encapsulation 





















fa Integral Quality 
P.O. Box 31970 


LARGE COMPLEMENT OF FUNCTIONS 
Mappers, for functional programming 
format, for output control 





































sort, for user-specified predicates Seattle, Washington 98103 DOCUMENTATION : 
Transcendental floating point functions (206) 527-2918 On-line documentation of functions 
String handling functions Washington State residents add sales tax. apropos 





& 300- eae indexed reference manual 


Over 400 functions altogether VISA and MASTERCARD accepted. 
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___CONCURRENCY 


LISTING ON E (Listing continued, text begins on page 36) 


2: sp:=sp2; 

end{case}; 

if sp<>0 {initialized} 

then begin 

stackptr:=sp; 

end 

else {not initialized} 
begin 
writeln('Starting task #',nextn); 
case nextn of 
is taski> 
Ze GASKZ2 
end{case}; 


end; 
end{defer}; 
begin {main} 
initall; 


writeln('Multitasking version of simple terminal program'); 


writeln('Control-C will terminate it'); 
writeln; 

defer; 

writeln('Main: done'); 

end. 


LISTING TWO 


{task #1: keyboard -> fifol 

task #2: fifol -> filter -> fifo2 

task #3: fifo2 -> slow display } 

program main; 

const TASKS=3; 
STACKSIZE=20; 
NFIFOS=2; {#1 is for input and #2 for output} 
PRATE=300; {SLOWs the display function} 


{the following three constants are for the Kaypro Computer} 


KDATA=5; KSTAT=7; RMASK=1; 

CR=13; 

LF=10; 

CC=3; 

BS=8; 

RUB=127; 

SPACE=32; 

CQ=17; {XON} 

CS=19; {XOFF} 

type stack = array[0..STACKSIZE] of integer; 

fifo = record 
buf: array[0..255] of byte; 
inptr: byte; 
outptr: byte; 
flow: boolean;{for flow control} 
end; 

fifon = 1..NFIFOS; 

tasknum = -1.. TASKS; 


var sp0,spl,sp2,sp3: integer; {when zero,task not initialized) 


oldn: tasknum; 
nextn: tasknum; 
fifos: array[1..NFIFOS] of fifo; 
Procedure defer; forward; 
function occupancy (p: fifon) :byte; 
begin with fifos[p] do 
occupancy:= inptr-outptr; 
end; 
function vacancy(p: fifon): byte; 
begin with fifos[p] do 
vacancy:=outptr-inptr-1; 
end; 
function dequeuel: byte; 
begin with fifos[1] do 
begin = 
while (occupancy (1)=0) or not flow 
do defer; 
dequeuel:= buf[outptr]; 
outptr:=outptr+l; 
end; 
end; 
function dequeue2: byte; 
begin with fifos[2] do 
begin 
while (occupancy (2)=0) or not flow 
do defer; 
dequeue2:= buf[outptr]; 
outptr:=outptr+1; 
end; 
end; 
procedure exit; 
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End Listing One 


procedure 


procedure 


begin 

writeln('JOB #',oldn,' terminated.'); 

oldn:=-1; 

defer; 

end; 

enqueuel (b:byte) ; 

begin with fifos[1] do 

begin 

buf [inptr] :=b; 

while vacancy (1})=0 do 
defer; {hang while full} 

inptr:=inptr+1; 

end; 

end; 

enqueue2 (b: byte) ; 

begin with fifos[2] do 

begin 

buf [inptr] :=b; 

while vacancy (2)=0 do 
defer; {hang while full} 

inptr:=inptr+1; 

end; 

end; 


function keyin:byte; 
begin 


repeat until (RMASK = (RMASK and port [KSTAT])); 
keyin:= port [KDATA]; 


end; 


procedure 


vout (b:byte) ; 
begin 
bdos (6,6); 


‘end; 


Procedure 
var 


Procedure 
var 


Procedure 
var 





print; {task#3} 
mystack: stack; 
i: integer; 
begin 
stackptr:=addr (mystack [STACKSIZE]); 
i1:=0; 
{initialize fifo#2} 
with fifos[2] do 
begin 
outptr:=0; 
inptr:=0; 
flow:=true; 
end; 
repeat 
i:=i+1; 
if i1=PRATE then 
begin 
i:=0; 
vout (dequeue2) ; 
end 
else 
defer; 
until false; {forever} 
exit; 
end; 
keyboard; {task #1} 
mystack: stack; 
cb: byte; 
begin 
stackptr:=addr (mystack [STACKSIZE]); 
{initialize fifo #1} 
with fifos[1] do 


begin 
inptr:=0; 
outptr:=0; 
flow:=true; 
end; 
repeat 
if (1 = (1 and port[KSTAT])) 
then 
begin 


cb:= port [KDATA]; 
enqueuel (cb) ; 
end 
else defer; 
until false{ forever}; 
exit; 
end; 
filter;{task #2} 
mystack: stack; 
b: byte; 
begin 
Sstackptr:=addr (mystack [STACKSIZE]); 
repeat 
b:=dequeuel; 
case 5 of 
CR: begin 


(Continued on page 93) 


Dr. Dobb’s Journal, March 1986 















TEAMWORK 


A Concurrent Programming Toolkit 


Teamwork is a “C” program library which allows you to 
write your programs as a set of cooperating concurrent 
tasks. Very useful for simulation, real-time applications, 
and experimentation with parallel programming. 


FEATURES 


Supports a very large number of tasks (typically more 
than 50) limited only by available memory. Low overhead 
per task results in very fast context switching. 

Provides a full set of inter-task communication (ITC) 
facilities, including locks, semaphores, blocking queues, 
and UNIX*-style signals. Also has building blocks for 
constructing your own ITC facilities. 

Handles interrupts and integrates them into task 
scheduling. Supply your own interrupt handlers or block 
tasks on interrupts. 

Lets you trace task switches and inter-task 
communication. 

Comes with complete documentation including a user’s 
manual and reference manual of commands. 


Parallel Programming for “C” 






































Teamwork is available for the following systems: 


Hardware 
IBM PC, XT, AT 






Operating System Price 
PC-DOS 2.0 or later $ 65 
IBM PC AT XENIX* $ 85 
DEC VAX* UNIX 4.2BSD $195 


PC-DOS version is compatible with DeSmet, Lattice, and 
Microsoft C compilers. 


Please specify hardware and operating system when 
ordering. Send check or money order to: 


Block Island Technologies 
Innovative Computer Software 


13563 NW Cornell Road, Suite 230, Portland, Oregon 97229-5892 


*Trademarks: UNIX, AT&T Bell Laboratories, Inc.; XENIX, 
Microsoft, Inc.; VAX, Digital Equipment Corporation 
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Write-Hand Man 


“Almost a Sidekick for CP/M” 
Ted Silveira—Computer Currents, Aug. 27, 1985 


“WHM is ingenious and works as intended” 
Jerry Pournelle, BYTE Magazine, Sept. 1985 (c) McGraw-Hill 


Now available for CP/M 2.2, CP/M 3.0 and ZRDOS! 


The convenience of Sidekick on your CP/M machine! Trigger 
Write-Hand-Man with a single keystroke and a window pops open 
to run desk accessories. Exit Write-Hand-Man and both the screen 
and program are restored. Use with any CP/M program and most 
any CP/M machine. Takes only 5K of memory. 


FEATU RES Notepad for quick notes 


Appointment calendar 
HEX calculator 


File and Directory viewer 
Quick access phonebook 
14 digit decimal calculator 


BONUS 


Add applications written by you or others! No other “Sidekick” 
lets you add applications. Dump screens, setup printers, 
communicate with other computers, display the date and time. 
Let your imagination run wild! 


$49.95 (California residents add tax), shipping included. COD 
add $2. Sorry, no credit cards or purchase orders. 30 day guarantee. 
Formats: 8 inch IBM, Northstar and most 5 inch (please specify). 


Write-Hand-Man only works with CP/M 2.2, ZRDOS and CP/M 3.0 
(please specify). Simple terminal configuration required. Not avail- 
able for TurboDOS. Compatible with keyboard extenders, hard 
disks, and other accessories. 


Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
415-493-3735 


Trademarks: Write-Hand-Man — Poor Person Software, CP/M—Digital Research, 
Sidekick —Borland International 
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Productivity Tools from SCE 


®@ The Seidl Make Utility (SMK) is the most powerful make 
utility you can buy for MS-DOS. When changes are made to 
any program module, SMK will issue only those commands nec- 
essary and sufficient to rebuild the system. SMK uses a super 
fast, proprietary dependency analysis algorithm that analyzes 
all dependencies before rebuilding any files. SMK understands 
complicated dependencies involving nested include files, source, 
and object code libraries. A high-level dependency definition 
language makes setting up dependencies easy. It supports pa- 
rameterized macros, local variables, for loops, constants, include 
files, command line parameters, in-line and block comments, full 
pathname and directory support, and more! Works with most 
compilers, assemblers, and linkers. $99.95 


® The Seidl Version Manager (SVM) is a state of the art 
version control system for MS-DOS. It maintains a complete re- 


vision history of any text file, without duplication, and can re- 
build any previous version of the file. SVM has highly optimized 
compression routines included for large projects and archiving. 
Other features include: full pathname and directory support, 
wildcards, exception cases, on line help, typeset documentation, 
tutorial, automatic error recovery, and much more. SVM is ideal 
for all software and text development projects. No other version 
management system delivers the features, performance, and re- 
liability of SVM. $299.95 


® SMK+SVM together form an extremely powerful, fully in- 
tegrated set of productivity tools. $379.95 


SEIDL COMPUTER ENGINEERING 


1163 E. Ogden Ave., Suite 705-171 
Naperville, IL 60540 
(312) 983-5477 
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CACHE22+ CP/M 2.2 
= CP/M Max! 


CACHE22 is a front-end system pro- 
gram that buries all of CP/M 22 in 
banked memory. It helps 8080/Z80 
computers to survive by providing up 
to 63.25K of TPA, plus the ability to 
speed disk operations, eliminate 
system tracks, and run Sidekick-style 
software without loss of transient 
program space. Complete source and 
installation manual, $50.00. 


CP/M is a trademark of Digital Research Inc. 
Sidekick is a trademark of Borland International 


<EN OPTICAL COMPANY 
_/ 53 Abbett Avenue, Morristown, NJ 07960 


(201) 267-1210 se 
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the dBx translator 


Bx produces quality C direct 
from GBASE II or II] programs. 


Move dBASE programs to UNIX or other machines. 
Improve program speed and reliability 

Support multi-user/network applications. 

With power guidebook of conversion hints. 


Includes full screen handler and uses your 
current C database manager. 


May be used to move existing programs or help 
GBASE programmers learn C easily. 


For MSDOS, PCDOS, UNIX, XENIX, Macintosh, AMIGA. 
(Uses ANSI.SYS driver on MSDOS, CURSES under UNIX) 


Priced from $350, also available from distributors. 


Desktop A.I. 


1720 Post Rd. E. #3 
Westport, CT 06880 


(203) 255-3400 
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FTL Modula-ll 
$49.95! 


Your next computer language. The successor to Pascal, 
Modula is powerful. Why? Once a routine is written, it need 
never be recompiled. Programs work everywhere from Z80 
through VAX. 


FTL Modula-ll is a full Z8O0 CP/M compiler (MSDOS version 
soon)! It’s fast -- 18K source compiles in 7 seconds! The 
built-in split screen editor is worth $60 alone. Some stan- 
dard features: full recursion, 15 digit reals, CP/M calls, 
coprocesses, assembler and linker. The one-pass compiler 
makes true Z80.COM, ROMable code, too. Get the language 
you've waited for now. Only $49.95! 


FTL Editor Toolkit 


Full source to our split-screen programming editor. Curious? 
Want to customize to your tastes? Want sample Modula-ll 
code? This is perfect for you. Comes with all you need for 
your personal editor or terminal installer. Just $39.95! 


Workman and Associates 
112 Marion Avenue 
Pasadena, CA 91106 
(818) 796-4401 


We have over 200 formats in stock! Please specify your for- 
mat when ordering. Add $2.50 per order for shipping. We 
welcome COD orders! 
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Time and Money. 


We've just done something we know you'll like. 
We've made the SemiDisk far more affordable than 
ever before. With price cuts over 25% for most of 
our product line. Even our new 2 megabyte units 
are included. 


It’s Expandable 


SemiDisk Systems builds fast disk emulators for 
more microcomputers than anyone else. S-100, 
IBM-PC, Epson QX-10, TRS-80 Models II, 12, and 16. 
You can start with as little as 512K bytes, and later 
upgrade to 2 megabytes per board...at your own 
pace, as your needs expand. Up to 8 megabytes per 
computer, using only four bus slots, max! Software 
drivers are available for CP/M 80, MS-DOS, ZDOS, 
TurboDOS, VALDOCS 2, and Cromix. SemiDisk 
turns good computers into great computers. 


SEMIDISK 





Battery Backup, Too 


At 0.7 amps per 2 megabytes, SemiDisk consumes 
far less power than the competition. And you don’t 
have to worry if the lights go out. The battery 
backup option gives you 5-10 hours of data 
protection during a blackout. Nobody else has this 
important feature. Why risk valuable data? 


The Best News 
512K 1 Mbyte 2Mbyte 


SemiDisk I, S-100 $695 $1395 

SemiDisk II, S-100 $995 $1995 
IBM PC, XT, AT $595 $1795 
Qx-10 $595 $1795 
TRS-80 II, 12, 16 $695 $1795 
Battery Backup Unit $150 $150 $150 


Someday you'll get a SemiDisk. 
Until then, you’ll just have to....wait. 


° . & 
SemiDisk Systems, Inc., P.O. Box GG, Beaverton, Oregon 97075 503-642-3100 we 


Call 503-646-5510 for CBBS/NW, $03-775-4838 for CBBS/PCS, and 503-649-8327 for CBBS/Aloha. all SemiDisk equipped computer bulletin boards (300/1 200 baud ) SemiDisk, SemiSpool trademarks of SemiDisk Systems. 
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enqueue2 (CR) ; 
enqueue2 (LF) ; 
end; 
LF: {ignore}; 
CCt exit? 
BS, RUB: 
begin 
enqueue2 (BS) ; 
enqueue2 (SPACE) ; 
enqueue2 (BS) ; 
end; 
CQ: fifos[2].flow:=true; 
CS: fifos[2].flow:=false; 
else enqueue? (b) ; 
end{case}; 
until false; {forever!} 
exit; 
end; 
procedure initall; 
var i: integer; 
Begin 
spl :=0; 
sp2:=0; 
sp3:=0; 
oldn:=0; 
end; 
Procedure schedule; 
begin 
if oldn=TASKS then nextn:=1 
else nextn:=oldnt+1; 
end; 
procedure defer; 
var sp: integer; 
begin 
case oldn of 
O: sp0:=stackptr; 































1: spl:=stackptr; 
2: sp2:=stackptr; 











The First Idea-Processor For Programmers. 
Fir slime" Has features no other editor has. 


Fast program entry through single keystroke statement generators 

Fast editing through syntax oriented cursor movements 

Dramatically reduced debugging time through immediate syntax checking. 

The error checking is thorough and includes semantics « Undefined variables, 
types and constants ¢ Assignment statements with mismatched types 

¢ Errors in include files and macro expansions 


se ea a, 


Automatic program formatter (you specify the rules) 
Split Screen editing (1 Command DOS from FirsTime 
Reading a file with errors moves cursor automatically to point of error 


CP Ae 


Unique programmer-oriented features 
* zoom command gives top-down view of program logic 
* view macro command shows expansion of a C macro in the editor 
° view/update include file allows you to view and update an include file 
* transform command allows you to transform statements to related ones 
¢- search for next error command 




















all) 
ny 






uli 


Whe bug stopshere. Bey. 


FirsTime for Turbo Pascal $ 74.95 
FirsTime for dBase III $125.00 
FirsTime for MS-Pascal $245.00 


PO. Box 7948 FirsTime for C $295.00 
Shrewsbury, NJ 07701 
FirsTime is a trademark of Spruce Technology Corporation « MS-DOS is a trademark of 


Microsoft Corporation * IBM is a trademark of International Business Machines Inc 
* Turbo Pascal is a trademark of Borland International * dBase Ill is a trademark of Ashton-Tate. 


To Order Call: (201) 741-8188 or write: 
SPRUCE TECHNOLOGY CORPORATION 
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CONCURRENCY 


LISTING TWO (Listing continued, text begins on page 36) 






3: sp3:=stackptr; 
end{case}; 
schedule; 
oldn:=nextn; 
case nextn of 
O: sp:=sp0; 
1: sp:=spl; 
2: sp:=sp2; 
3: sp:=sp3; 
end{case}; 
if sp<>0 {initialized} 
then begin 
stackptr:=sp; 
end 
else {not initialized} 
begin 
case nextn of 
1: keyboard; 
2:- filter; 
3*orint: 
end{case}; 


end; 
end{defer}; 
begin{main} 
initall; 


writeln('<Demonstration of multitasking with queues (FIFOs)>'); 

writeln; 

writeln('Control-S stops output (you can still type ahead!)'); 

writeln('Control-Q restarts output (you can see what you have 
typed ahead)'); 


writeln('RUB or BACKSPACE will “undo” on screen the last 


letter'); 
writeln('Control-C terminates this program'); 
writeln; 
defer; 
writeln('main: done'); 
end. 


End Listings 


68K8-CP 
Expand Your System with a 68000 CoProcessor 


Peak Electronics’ 68K8-CP is a high performance 68000 
software development package designed to easily integrate into your 
existing S-100 system. The package consists of the 68K8-—CP 
coprocessor card, CP/M-68K, and a software toolkit that includes a 
UNIX V7 compatible floating point C compiler and a symbolic debug- 
ger. 

Any system running CP/M®-2.2, CP/M-3.0 or CP/M-86 can be 
running CP/M-68K within minutes without any change in existing 
hardware or software. This card does not replace your current 
processor. All of the original s stem's devices (RAM, disks, and 
other peripherals) are immediately available to the user of 
CP/M-68K. All files can be accessed by whichever operating sys- 
tem is currently active. Control is transferred between operating 
systems with a simple one line command. 


Features: 
Does not replace your current CPU card or software 


Includes CP/M-68K with UNIX® V7 compatible 
floating point C compiler and a symbolic debugger 


All developed C and Assembly code is fully 
relocatable and ROMable 


8 or 10Mhz CPU with no wait state RAM 
128K bytes of RAM expandable to 512K 
2 serial and 1 parallel |/O ports 
IEEE-696-1983, S-100 Compatible 
30 day money back guarantee 

1 year parts and labor warranty 


Complete Package: $995.00 
VISA or Master Card Accepted 





Electronics 
P.O. Box bag San a CA 95170-0112 


(408) 253-5108 
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LISTING ONE (Text begins on page 44) 


: Weissman/Dr. Dobbs submission Listing 1: 7 
> Assembler BIOS diskette read test program. ; 


Assembler code to test diskette times, 
reading 16 tracks through INT 13. 
10/1/85 Gregg Weissman 

E-X-E Software Systems 


‘se Se Se Se Se SS 
=e Ses “Ses Se “6 


HI_RES TIMER equ 1 


Set this to 1 if you implement 

the 1024 tick/sec AT timer. 

It will return time in 1k'ths of 

a second. If using the usual IBM 
18.2 ticks per second timer, set to 0 
and receive counts at that rate. 


=e Se Se Se Be Ne 


if HI RES TIMER 


GET TIME equ 10h : Define the proper AH function value 
a ; For int lah 
else 
GET TIME equ 0 
endif 
; Start the test code: . 


CODE segment 
assume cs:code,ds:code,es: code, ss:code 


org 80h 
TIME LO dw ? 7; Time accumulator out of the way. 
TIME HI dw ? 

org 100h 
START: ;------------------------------------------; 


First, read a dummy sector to start the 
diskette: this way motor start time will 
not affect the timings. 


Se Se Se Se 
Se Se Se Se 8 


mov ax, 0201h ; Read, 1 sector. 

mov CN, ; Starting @ track 0, sector 1 
mov dx, 1 ; Side 0, diskette B: 

mov bx,offset DATA AREA 

int 13h "a ; Perform the op. 

jb STOP ; Error: abort. 


; Now, get the time of day and perform ; 
7 the test. Read 32 tracks, 16 cyl's. : 


ela 
mov ah,GET TIME 
int lah 
mov TIME LO, dx 
Mov TIME _HI,cx 
sti 
xor bp, bp ; Set a register to count reads. 
mov di, 290 7 number of sectors total in testfile. 
Mov xo. 5 diskB: 
mov cx, 0001 7 Start at trk 0, sect l 
MOV bx,offset DATA_AREA 
SIDE_1: 
Mov al,9 
cmp di,al 7 Number not mod 9, might do partial 
jnb N2 ; read on last track. 
mov ax, di ; Move partial read value into al 
mov ah, 2 7 Read disk function code into AH 
int 13h ; Perform disk read. 
Bn STOP ; Error: don't bother with re-try. 
sub di,9 ; Subtract default count of sectors. 
jbe DONE 7 We're done if di <=0 
inc bp 7 Count the op. to verify number done. 
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dh, 1 ; Flip sides. 
jne SIDE 1 


; If we flipped to side 1, do it. 


inc ch : else bump to next track (cylinder) 


jmp SIDE 1 


mov ah, GET_TIME 
int lah 

sub dx, TIME LO 
sbb cx, TIME HI 


WARNING! 
; This program does not return to DOS! 
; Do not run this except under DEBUG! 


and go back for more. 


; OK, stop the clock. 


; Get end time - Start time. 


Lit: 3 ; DEBUG breaks here, read time in DX 


; BP=20h and Carry Clear if no errors. 


org 200h 
DATA_AREA label byte 


CODE ends 
end START 


LISTING TWO 


; Weissman/Dr. Dobbs Submission. Listing 2: 
; AT timer handler. 


> Memory-resident handler for the 1024 
; tick/sec. realtime clock in the IBM AT: 


> Enables INT 70, the clock interrupt, and 


; counts the ticks at the 1k rate. The range is 
> 2**32 div 2**10, or 2**22 seconds. Long enough. 


WIZARO C 


Discover the powers of Wizard C 
for yourself! 


“written by someone who has been in the business a 
while. This especially shows in the documentation. 


Computer Language 
February, 1985 


“ Wizard's got the highest marks for support.” 


“The Wizard compiler had excellent diagnostics; it would 
be easier writing portable code with it than with any 
other compiler we tested.’ 


Dr. Dobb's Journal 
Aupust, 1985 


Full Lint checking, six memory models, 8087 support, 
in-line assembly language, ROMable data support, full 
library source code. Cross-compilers are available on 


VAX/VMS and UNIX machines. 
(617) 641-2379 


WIZEARD 


SYSTEMS SOFTWARE, INC. 


Only $450. 


11 Willow Court 
Arlington, MA 02174 


=zo 
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End Listing One 


(Continued on next page) 





QUICK REF 


Indexing at your fingertips! Take the 
pressure off the tedious search for that much 
needed article. 


Quick Ref offers rapid recall of magazine ar- 
ticles by title, author, and key combinations. 


FOR THE INTRODUCTORY PRICE OF 
$34.95 * Key access to magazine 


articles 


QUICK REF * Rapid search by title, 


author, and key com- 


PROVIDES: binations 


* Convenient on-line help 
* Easy to use manual 


FREE INTRODUCTORY OFFER 
WITH PURCHASE 


The completely indexed 
Dr. Dobb’s Journal 
Data Base 


Available for IBM Compatibles and Victor 9000 


Terra Base Software 
906 S. 8th Street 
Laramie, Wyoming 82070 


(800) 238-4790 9:00 A.M.—5:00 P.M. M.S.T. 


All orders shipped U.P.S. Surface shipping included in price. 
Visa/MasterCard accepted. Foreign orders please add $15.00. Checks must 
be on U.S. Bank in U.S. dollars. Specify machine and DOS version. 
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SPEEDING MS DOS 


LISTING TWO (Listing continued, text begins on page 44) 


Sets up the usual INT 1A (Get/set time of day) 
to handle get/set of the hi-resolution timing 
data via special codes in AH register. 


With AH=10h, caller recieves current time in 1k 
tacks; 
CX returns high 16 bits, DX the low. 
AH=1lh allows user to set the 32-bit count. 
CX=High count to set, DX is low. 


10/1/85 Written by Gregg Weissman 
E-X-E Software Systems 
Released to the public domain. 


Se Se Se Be Se Se Se Se Se Be Se Se Ne Se 
Se Se Se Se Se Se Se Se Se Se Se Ne Ns Ne 


CODE segment 
assume cs:CODE, ds:CODE,es:CODE, ss:CODE 


A 
; Conserve memory space: maintain variables ; 
7 in the unused areas of the program prefix.; 


org 5ch 
I1AJMP dd ; Vector to usual 1A int. 
I7OJMP dd 7 ; Ditto the INT 70. 
TIMELO dw ? ; low 16 bits of time. 
TIMEHI dw ? ; Hi 16 bits of time. 
org 100h ; Start of .COM program 
BEGIN: jmp short START 7 Jump around handlers. 


CP/TREE 


Tree-Structured Named Directories for CP/M 2.2 


¢ Transforms user areas into Unix-like directories 
¢ Provides Unix-like directory commands: 
CD, MKDIR, PWD, RMDIR, TREE 


¢ Includes a CCP replacement featuring: 
¢ Command and file search path. Use programs like 
_WordStar from any directory! 
e Erase with query 
* Wildcard rename with query 
¢ Provides output redirection to disk file 3 
° Uses as little as Y2k RAM, never more than 24k 
¢ A must for hard disks 


* Installs easily: requires no modifications to BDOS or BIOS 


® Requires standard CP/M 2.2 (not 3.0 or Apple), Z80, 
48k RAM 


$29.95 plus $4.00 s&h 


To order: Specify disk format (8” SSSD, NorthStar DD. Call for 
info on others.). MC, Visa, COD (add $1.90), check (delays 
shipping 2 weeks). MA residents add 5% sales tax. POs not accepted. 


Precise Electronics 
P.O. Box 339 

New Town Branch 
Boston, MA 02258 
tel: (617) 332-3977 


Apple® Apple Computer. CP/M® Digital Research. WordStar™ 
MicroPro International. Z80® Zilog. Unix™ AT&T Technologies. 
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C CODE FOR THE PC 


source code, of course 


SS 
Coneurrent Ci. .5 
Coder’s Prolog in C 
LEX 
OAC) ae PP sg 
Small-C compiler for 8088 
tiny-c interpreter & shell . 
Xlisp 1.5a & tiny-Prolog . 
C Tools 


The Austin Code Works 
11100 Leafwood Lane 
Austin, Tezas 78750-8409 
(512) 258-0785 


Free shipping on prepaid orders 


No credit cards 
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} 
3 ----- -- 
: Handle the Get/Set time-of-day INT 1A: 
; As mentioned, AH=10h Returns time, 
; | AH=11h Sets time ; 
; Illegal, values >11lh return Carry status ; 


ee ee ee pe ne ee ee ee ee ee ee ee ee 
} 


INT 1A proc far | 
assume ds:nothing, es:nothing, ss:nothing 


ah,10h ; See if it's our range of cmd vals. 
NOPE 1A + If less than, assume BIOS int la. 
ah, 10h ; Remove special code "bias" of 10h 
GET TIME ; and branch if equal to "Get" cmnd. 
ah ; See if "Set" cmns. 
BAD CMD 1A : If not, branch to error. 
time: cx, dx 
TIMEHI, cx 
TIMELO, dx 
GET TIME: 
mov cx, TIMEHI : Obtain the number of times the 1024 
mov dx, TIMELO ; tick per sec. interrupt has occurred. 
iret 
BAD CMD 1A: 


stc 
ret ; Return an error flag. 


NOPE 1A: 
jmp ; Continue to BIOS handler via vector. 


INT 1A endp 












(Continued on next page) 
68000 


00 BBOZO 


WE ARE PROUD TO ANNOUNCE THE BIRTH OF THE NEWEST MEMBERS 
OF OUR 68000 FAMILY . . . YOUR 68020 TOOLS ARE HERE! 


















TOOL KIT FEATURES AVAILABILITY 
¢ 68000/10/20 Assembler e Written in C; fast, accurate, portable. VAX, microVAX, 8600, Sun, Pyramid, 
Package: e Supports 68000 and 68010. Masscomp, IBM/PC, OASYS Attached 
- Macro Cross/Native e 5,000 line test suite included Processors for VAX and PC, others. 
Assembler ; Runs under VMS, Bsd 4.2, System V, 
- Linker and Librarian ¢ EXORmacs compatible. MS/DOS, dozens more. 
- Cross Reference Facility © Produces full listings and maps. You name it... 


- Symbol Formatter Utility © Outputs S-records and Tek-Hex formats. 


- Ohi ; sa We provide a “One-Stop Shopping” 
Object Module Translator Runs native or cross. Extensive libraries. 68 «or more than 100 products 
¢ Green Hills C 68000/10/20 —_* Supports OASYS compilers. running on, and/or targeting to, the 


Optimizing Compilers e Generates PROMable output and PIC. most popular 32-, 16- and 8-bit 
e Symbolic Debuggers e Full Floating Point support. micros and operating systems. 










We Specialize In: 
ae Cross/Native Compilers C, Pascal, Fortran, Cobol, Basic, APL, 


OR en ieee TRIE Pe, 2a PL/1,Prolog, Lisp, ADA — Assemblers/Linkers — Symbolic 
}-— a Fe Debuggers — Simulators — Interpreters — Translators 
A DIVISION OF XEL Aus 2. “Ve ~~ Converters — Profilers — QA Tools — Design Tools — Comm. Tools 

SOSA NaN EAS TS DPS GESTS Se REA nar GO late GERRY ER” ae teat” OS Kernels — Editors — Spreadsheets — Data Bases — VAX & PC 


4” Attached Processors and more 
We Support: 


60 Aberdeen Avenue, Cambridge, MA 02138 (617) 491-4180 680xx, 80x86, 320xx, 68xx, 80xx, dozens more 
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SPEEDING MS DOS 


LISTING TWO (Listing continued, text begins on page 44) 





Handle the 1024 ticks/second realtime 
clock interrupt: maintain 32-bit count. 


Still assume ds, etc. nothing in effect. 


” S"e “8 “es Se Soe 


“=e Se Se Se Se Ne 


INIT_70 proc far 


push ax 

push ds 

mov ax,cs 

mov ds, ax . 


assume ds:CODE 


inc TIMELO ; Bump low counter. 
jne CONT_70 ; Continue if count not wrapped around 
inc TIMEHI 7 Bump high counter. 
CONT 70: 
pushf Simulate INT nn 


Call the realtime clock handler, 
to let BIOS handle user-event-wait. 
And return here so we can re-init 


call I70JMP 


Se Se Se Se Se 


call ENABLE INT 


pop ds the timer: BIOS turns it off. 
pop ax 
iret 

INT 70 endp 
; This routine enables the "PIE", or ; 
7 periodic interrupt event. It is called ;> 
; when the system initializes, and after ; 
7; each tick, in case BIOS turned it off. ; 
; This communicates with the CMOS ; 
: module via ports 70h & 7lh. The 7 
; "JMP $+2" is for a delay between : 
; port accesses, allowing the device > 
: time to settle down. The 80286 is s 
: too fast. 7 

ENABLE INT proc near 
cit ; Prevent interruption. 
mov al,Obh ; First, identify the reg. 
out 70h, al 7 we want (Ob is the one). 
jmp $+2 7 Just a long NOP. 
in al,7ih 
or al,01000000b ; This bit is int. enable 
MOV ah,al 7; Save value: we need al 
mov al, Obh ; Address the register again. 
out 70h, al 
jmp $+2 ; NOP 
mov al,ah 7 Get back the desired value. 
out 7ih,al ; Now stored in CMOS &€ ready. 
in al,Oalh ; Int. control chip register. 
and al,Ofeh ; Bit O is another int. enable 
out Oalh, al ; now set to allow interrupt. 
mov al, 20h 7 Send "End of interrupt" for 
out 0Oa0h,al 7 good measure. 
out 020h, al ; ditto controller chip 1. 
sti 
ret 

ENABLE INT endp 


Initialize the interrupt handlers and 
the interrupt generator itself. Leave 
behind the resident code. 

We leave out amenities like DOS version 
test and check for an actual AT. 


"es Se Se Se Sa Ve Ve Ne 
Se Se Se Se Se Se Se Ne 


START: 
assume ds:CODE,es:CODE, ss:CODE 


mov ah, 10h ; First check to see if already 
ele 7; resident, 

mov cx, 1234h 7 by constructing an unlikely 
mov ax, Cx 7 time value of 12341234h 

int lah 7 See if we get the time back. 
cmp Cx, dx ; If cx=1234=dx, not present. 
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je 

mov 
mov 
int 
mov 
int 


NOT THERE: 


mov 
int 
Mov 
mov 
mov 
int 
MOV 
mov 


push 
pop 


mov 


NOT_THERE 
dx,offset ALREADY 
ah, 9 

2lh 

ax, 4cOlh 

21h 


ax, 3570h 

21h 

word ptr I70JMP,bx 
word ptr I70JMP+2,es 
ax, 35lah 

21h 

word ptr I1AUMP,bx 
word ptr I1AJMP+2,es 


cS 
es 


THIS SEG, cs 


dx,offset INT la 
ax, 25lah 

21h 

dx,offset INT 70 
ax, 2570h ae 
21h 

dx,offset HELLO 
ah, 9 

21h 


ENABLE INT 
dx,offset START+15 


Cla 
dx, ci 


TIMELO, 0 
TIMEHI, 0 


ax, 3100h 
21h 


Tell the user it's in already 
using DOS print function. 


; Terminate with errorlevel 1 


Get the current vectors 
; from DOS. 
Save in prefix are variables. 


; Got the 70, now get 1A 


Restore es for form's sake 


Set interrupt vectors to our handlers 


Ditto for int 70. 


Print a message 


- Start the timer. 


Set terminate address in 
paragraphs, rounding up & 
dividing by 16. 


Clear the current time. 


Terminate & stay put. 


End. (Continued on next page) 





C Source Code 


RED 


Full Screen Text Editor 
IBM PC, Kaypro, CP/M 80 and CP/M 68K systems. 


® RED comes with a Reference 
Card and a Reference Manual 
that provides everything you 
need to use RED immediately. 


e RED is fast! RED uses all of 
your terminal’s special func- 
tions for best screen response. 
RED handles files as large as 
your disk automatically and 


¢ RED is unconditionally 
quickly. 


guaranteed. If for any reason 
you are not satisfied with RED 
your money will be refunded 


selon 
; oak ANY. 
e RED is easy to use for writers ce 


a 
or programmers. RED’s com- ae ae 0. 


mands are in plain English. promptly. € - Wel 
¢ RED comes with complete RED: $95 ne 
See oe Seer PUT A CP/M COMPUTER IN YOUR PC! 


RED has been ported to main- 
frames, minis and micros. 


Manual: $10 And run 1,000’s of CP/M programs 


up to 30% faster, directly from your CP/M disks! 





Call or write today for 
for more information: 


Edward K. Ream 
1850 Summit Avenue 
Madison, WI 53705 
(608) 231-2952 


| | 
edward k. ream 


oes 


To order: 

Either the BDS C compiler or the Aztec CIl compiler is required for CP/M 80 
systems. Digital Research C compiler v1.1 is required tor CP/M 68k systems. No 
compiler is required for IBM or Kaypro systems. 


Specify both the machine desired (IBM, Kaypro or CP/M) and the disk tormat 
described (8 inch CP/M single density or exact type of 5'4 inch disk). 


Send a check or money order for $95 ($105 U.S. for foreign orders). Sorry, | do 
NOT accept phone, credit card, or COD orders. Please do not send purchase orders 
unless a check is included. Your order will be mailed to you within one week. 


Dealer inquiries invited. 
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How does it work? 

RUN/CPM virtually transforms 
your PC into any of the most 
popular CP/M systems. A simple 
replacement of your PC's 8088/86 
microprocessor with our N.E.C 
V-20/30 microprocessor gives 
your computer the ability to run 
both 8 bit CP/M and 16 bit 
MS-DOS programs. RUN/CPM 
will transform your PC's floppy 


drives into CP/M drives able to 
directly read, write, and format 
over 100 CP/M disks! 

Terminal emulation supporting 
dozens of the most popular ter- 
minals completes the transfor- 
mation of your PC into a CP/M 
system 


Performance? 

Depending on the application, 
many of your CP/M programs will 
run up to 30% faster on your PC. 
Other features include; ability to 
run CP/M programs in color, 
logical and physical drive 
assignments, run CP/M or 
MS-DOS programs from the 
same prompt. RUN/CPM is the 
solution to running CP/M soft- 
ware on PC's. 


@ 1-so0o0-637-72e2e6 2S 


Orders only. 


Micro Interfaces Corporation 


6824 N.W. 169th Street, Miami, Florida 33015 


(305) 823-8088 


Telex 5106004680 MICRO INTER CO 
Ask About Our Intel Operating System Interfaces 


OEM, VAR, Dealers, Inquiries Invited 


Trademarks CP/M (Digital Research. | 


nc ). 1BM (IBM Corp), RUNICPM (Micro intertaces Corp) MS DOS (Microsoft. Inc) INTEL (intel Corp) 
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SPEEDING MS DOS 


LISTING TWO (Listing continued, text begins on page 44) 


7-- Messages for the user: 


HELLO db "Hi-resolution AT timer now loaded.',13,10,'$' 

ALREADY db 'The resident timer handler is already installed.',13,10,'S' 

CODE ends oe ope 

end BEGIN End Listing Two 


LISTING THREE oP 5 


J o----------------------------- +--+ +--+; ; Here is fragment to access the current 


: Weissman/Dr. Dobbs Submission LISTING 3: ; ; parameter block, and set the settle-time 
; Sample program fragment to change diskette =; ; and motor wait. 


; BIOS parameters. ; : ; : : 
jooo-------------------- +--+ ee : ; Enter with the settle time in AL, and 


; the motor-wait value (in 1/8ths of a sec.) 
; in AH. 


; Define the structure of the BIOS diskette parms ; * SO you can preserve and restore the current ; 
FP nn nnn nn nnn nnn nn nnn nn : ; values, AL & AH return with them: you must 


; save them for later if you want to restore. ; 


. a atte a Aa oe eh th a cp ma har pe ahr at Signe aR yo ow 


DISKPARMS struc 
SPEC1 db ? ; Don't change these values SET _PARMS proc 
SPEC2 db ? 
SPEC3 db 2 push bx ; Save the reg's used. 
SPEC4 ab 2 push ds 
SPECS5 db ? xor bx, Dx ; need sys0 
SPEC6 db ? mov ds,bx 
SPEC7 db ? 
SPEC8 db ? assume ds:SYS0 
SPEC9 db . 
HEAD SETTLE db z lds bx, DISK_PTR 
MOTOR WAIT db ? 
s assume ds:nothing 
DISKPARMS ends 
xchg [bx] .HEAD SETTLE,al 
Fn nm a as a a ee ow ns ee : xchg [bx] .MOTOR_WAIT, ah 
; Define the location of the pointer to the parms 
J PR en nn nn nn nn nnn nn enn mw nn pop ds 
pop bx 
SYSO segment at 0000 ret 
org 78h SET_PARMS endp 
DISK PTR label dword ;-- You need your own “assume" and "end" statements! 
SYSO ends End Listing Three 





QPARSER"’ 


Translator W/riting System 


THE PRODUCTIVITY TOOL 
FOR SOFTWARE DEVELOPERS 


QPARSER assists you in writing: 


* Compilers * Translators * Interpreters * 
* Prototypes * Simulators * Syntax Checkers * 
* Data Converters * Assemblers * 


PC/VI 


Full Screen Editor for MS-DOS (PC-DOS) 


Looking for an Ultra-Powerful Full-Screen editor for 
your MS-DOS or PC-DOS system? Are you looking for an 
editor FULLY COMPATIBLE with the UNIX* VI editor. 
Are you looking for an editor which not only runs on 
IBM-PC’s and compatibles, but ANY MS-DOS system? Are 
you looking for an editor which provides power and flexi- 
bility for both programming and text editing? If you are, 
then look no further because PC/VI IS HERE! 









The following is only a hint of the power behind PC/VI: 
English-like syntax is command mode, mnemonic control 
sequences in visual mode; full undo capability; deletions, 
changes and cursor positioning on character, word, line, 


QPARSER is a unique LALR(1) parser generator: 


Generates complete source code for your application 
in C, Pascal, or another language of your choice; 

Extensive examples include a Pascal subset compiler, 
assembler, and simulator; 

The widely used college text, Compiler Construction: 
Theory & Practice, from SRA Associates, was 
written by the author of QPARSER 

Lauded by both industrial and university users 

Available for: IBM PC,XT,AT; DEC VAX; HP 9816; MACINTOSH 

(PC System $400; Demo $10; Educational/Site Licenses available) 







sentence, paragraph or global basis; editing of files larger 
than available memory; powerful pattern matching capa- 
bility for searches and substitutions; location marking; 
joining multiple lines; auto-indentation; word abbreviations 
and MUCH, MUCH MORE! 


The PC/VI editor is available for IBM-PC’s and generic 
MS-DOS based systems for only $149. For more infor- 
mation call or write: 











Custom Software Systems 
P.O. Box 551 MO 
Shrewsbury, MA 01545 
617-842-1712 
The UNIX community has been using the VI editor for 
years. Now you can run an implementation of the same 


editor under MS-DOS. Don’t miss out on the power of 
PC/VI! 


*UNIX is a trademark of AT&T Bell Laboratories. 


“LEADERS IN SOFTWARE TOOLS" 







So co. toile JINIE 


1164 Hyde Ave., San Jose CA 95129 
Toll-free Orders: (800) 538-9787; In CA: (408) 727-6671 
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LISTING FOUR 


Timing the DOS command: “COPY B:TESTFILE.001 NUL:" 


DOS200LS LOGDOS/GETSTATS (1.1) DOS timing statistics output. 

Function #: Count: Total Time: Mean Time: 
3D 3 0:2.1970 0:0.7323 (OPEN) 
3F 3 0:7.4149 0:2.4716 (READ) 


Other DOS function timings not related to the test are left out 
STATISTICS SUMMARY: 


Total DOS function calls counted: 
83 
Total DOS execution time: 
0:9.7218 
Mean DOS execution time: 
Os OAL 


Histogram of the relevant time taken up by different functions - as before, irrelevant DOS calls left out. 


3D: 22. GEEK KKKKKKKKKKKKKKKKK 


End Listing Four 
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LISTING FIVE 


BASICA Interpreter with default 128-byte buffer size. 


DOS200LS LOGDOS/GETSTATS (1.1) DOS timing statistics output. 

Function #: Count: Total Time: Mean Time: 
3D 1 Q3221970 0:2.1970 (OPEN) 
3F 1153 0:41.963 0:0.0364 (READ) 


STATISTICS SUMMARY: 


Total DOS function calls counted: 
Le 
Total DOS execution time: 
0:44.215 
Mean DOS execution time: 
0:0.0378 


(Continued on next page) 


Now oaevaileblie For the 
computer experimenter! 


COMPUTER CONNOISSEUR’S DELIGHT! 


NOW BE IN CONTROL WITH YOUR COMPUTER — THE ONLY PUBLICATION 
OF ITS KIND WRITTEN FOR THE USER. DISCOVER THE SECRETS AND 
LEARN THE VERSATILITY OF MODERN COMPUTER COMMAND CONTROL 
CONCEPTS. EXPERIMENT WITH COMPUTER AND TELEPHONE SYSTEMS, 
INTERFACE THEM, LEARN HOW THEY WORK, WHAT THEY DO... AND 
HOW TO GET THEM TO WORK FOR YOU! A COMPLETE TELEPHONE 
ENGINEERING COURSE IS INCLUDED IN MONTHLY CHAPTERS, BRING- 
ING YOU THROUGH STEP, CROSSBAR, ESS, BUBBLE, AND ATOMIC 
SWITCHING SYSTEMS! EXCLUSIVE COVERAGE IN BIOLOGICAL COMPUT- 
ING SYSTEMS, TOO! COMPUTERS AND TELEPHONES ARE THE FUTURE. 
THIS PUBLICATION IS AN ABSOLUTE MUST FOR EVERYONE INTERESTED. 
terete ip nesses nines istireimnerseraestinanuncnsinineennaniaissbpeicinacip 


UNPUBLISHED 


MATERIAL , Fue one you ve all 
been waiting for 


NOW AVAILABLE — Learn how to repair tele- 

phones and telephone systems, how they work, in 

or monthly installments with the 

comics 3 magazine for you. 


Now! Automatic time and 
datestamping for 
CP/NE 2.2 


™ 


DIRECTORY 
LISTING 
NET- 
Avoid WORKS 
erasing the 


wrong files! 


PUBLISHED MONTHLY 


ONE YEAR SUBSCRIPTION $14.00 
(SAMPLE COPY $2.00) 
SUBSCRIPTION & 2 PROGRAMS $20.00 


COMPUTEL—the complete SOURCE for everyone. 
You can now do the things you've only heard about, 
right in the privacy of your own home. Indispensable 
reference to phreaks and hackers. Learn how to get 
all kinds of computer programs FREE. Get the inside 
story of big business systems—their quirks and flaws 
—and remain up to date with vital occurrences within 
the computer industry. Computel is a publication de- 
signed for everyone who has an intense curiosity of 
computer systems, containing a wealth of hard to find 
information, codes, and numbers. Published monthly. 


Computel Publishing Society 
6354 VAN NUYS BL., #161-A/ VAN NUYS, CA91401 


Back up 
files by time 
and date! 


“DateStamper... 
is areal winner.’’ 


_ Bruce Morgen, Users 
Guide, Jul-Aug. 1985 


Write or call for 
further information 


(714) 659-4432 BOX 1494, IDYLLWILD, CA 92349 
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LISTING SIX 


ASSEMBLER code calling DOS with record size of 200h bytes 


STATISTICS SUMMARY: 


Total DOS function calls counted: 
293 
Total DOS execution time: 
is 2: 1198 
Mean DOS execution time: 
0:0.2143 


3D: GS. 14? 


3F: QE QE KKK KKK RKKKKKKEKKKKKKEHKKKAKKERK EK KKKEEKEKEKKKEEKEKEKEKEEKERKKKKKKKKKKKKKK 


DOS2O00LS LOGDOS/GETSTATS (1.1) DOS timing statistics output. 
Function #: Count: Total Time: Mean Time: 
3D 1 0:1.9773 0:1.9773 
3F 289 1:0.8025 0:0.2104 


3F: 96 GEER RR ARERR KAKI K IKKE KEKE EKER KKK RARER KEKE KK KKK EK KK KEKKKKEEEE 


SPEEDING MS DOS 


LISTING FIVE (Listing continued, text begins on page 44) 


End Listing Five 


End Listing Six 


d/MULTI 


MULTIUSER dBASE 
for 





echnical support, personal service, com- 

petitive prices. 
Disclone full service quality tested diskette 
duplication, packaging, documentation produc- 
tion and processing ensures precise duplica- 
tion, thorough quality control, and expedient 
response to your requirements. 
NOclone state of the art hardware based copy 
protection is true piracy protection for author- 
ized allotments only. Each application is 
uniquely encrypted. Install routines are coded 
for nontransferrable hard disk allotments. 
Committment dates are guaranteed. Fast 
turnover 

@ up to 1000 in 24 hours, any format. 

m up to 10,000 in one week, any format. 


LE 


DISCLONE SOFTWARE PRODUCTION SERVICES 


1585 North Fourth Street, San Jose, California 95112 
(408) 947-1161 OUTSIDE CA: 1-800-826-4296 
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TurboDOS 


TRUE File and Record Locking as easy as 
d-BASE-II. Unlimited users can perform the 
magic of dBASE in the program or 
interactive mode 


* TurboDOS 1.3 or 1.4 

* No Peeks or Pokes 

* System Date and Time Functions 

* Printspooler Controls up to 16 printers 


Martian Technologies... 
-CREATEing Multi-users from 
Single-users around the world 


CALL FOR DETAILS 


Martian Technologies 
8348 Center Dr., Ste.-F, La Mesa, CA 92041 
(619) 464-2924 
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3D 
aE 


3D 
SE 


SPEEDING MS DOS 


LISTING SEVEN (Listing continued, text begins on page 44.) 


ASSEMBLER code, block read size of OFE0Oh 


DOS200LS LOGDOS/GETSTATS (1.1) DOS timing statistics output. 
Function #: Count: Total Time: Mean Time: 
1 0:2.1970 0:2.1970 
3 0:7.1403 0:2.3801 


STATISTICS SUMMARY: 
Total DOS function calls counted: 
7 


Total DOS execution time: 


079.3923 


Mean DOS execution time: 


0:1.3418 


3D: QDI GERRAKAKKKKKKKKKKEKEKKEKE 


3F: 16.095 FRR IOI TOIIIIIIOIIIOII SII IIIA III IR IR ER ERE RE End Listing Seven 


LISTING EIGHT 


ASSEMBLER code, block read size of 2400h ( 9 k-bytes ) 


DOS2O00LS LOGDOS/GETSTATS (1.1) DOS timing statistics output. 
Function #: Count: Total Time: Mean Time: 
1 042..0322 0:2.0322 
17 0:9.5021 0:0.5589 


STATISTICS SUMMARY: 
Total DOS function calls counted: 
2 


Total DOS execution time: 


O::12,534 


Mean DOS execution time: 


0:0.5243 


17. OS###HHHHHHEE HEH Pos 
BF: 82. 4StHHHHHHHHHEHHHES ERAS SHEA HAEAEHHEPEAERSE GEESE REESE EEE RHE THEE HET EE End Listings 


You Read Dr. Dobb’s Journal of Software 


Tools and You Don’t Subscribe?! 


Save over $13.00 off newsstand prices for 2 yrs. 
Save over $5.00 for 1 yr. 
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Can you afford to miss an issue with information vital to your interests? As a sub- 
scriber you can look forward to articles on Small-C, FORTH, MS DOS, S- 100, Compiler 
optimization, Concurrent Programming and more, delivered right to your door. 
And you'll never miss the issue that covers your project. 
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_______ Please bill me later 
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Dr. Dobb’s Toolbook forC $29.95 


An anthology of some of the finest C articles and 
listings from past issues of Dr. Dobb’s Journal. The 
Dr. Dobb’s Toolbook of C includes the Small C 

. Smaill-Tools, and Smali-C tools for text processing. 
Standard C programs include Allen Holub’s grep and 

‘gs (2 general purpose command line processor) 

and.a collection of useful subroutines from Anthony 
Skjellum’s C/Unix Programmer’s Notebook. 


Order Now! 


YES! Send me 
Dr. Dobb’s Toolbook for C $29.95 
MS/PC DOS C Tools Package $82.95 


CP/M C Tools Pa e $99.95 
Tax (CA only) 


rar x Po stage 








\ 
(Add $1.75 for The Toolbook, 
or $8.75 for each C Package}, 

\ TOTAL 
For CP/M Package, specify format: 


_ _. Kaypro _ Apple ee ss Z-100 DS/DD 





— Osborne — 8" $S/SD 
X 
> 


Reet ie Pte hegre, fee Se la are ea Ee SA A a 


20% Off 
Dr. Dobb’s Special C Packages! 


Special CP/M C Tools Package ONLY $99.95 

The CP/M C Package includes Dr. Dobb‘s Toolbook for C, Hendrix’s Small C Hand book 
—a companion to the compiler containing its source listings; Small C Compiler on disk, 
source and object code; Small Tools Text Processor on disk, source code only, along with 
documentation in The Smail Tools Manual; Small Mac Assembler on disk, source and 
object code, and The Small Mac Manual. 


Special MS/PC DOS C Tools Package ONLY $82.95 

The MS/PC DOS C Package includes Dr. Dobb’s Toolbook for C, Hendrix's Small C 
Handbook and MS/PC DOS Addendum—an MS/PC DOS specific companion to the 
compiler; Small C Compiler on disk, source and object code; Small Tools Text Processor 
on disk, source code only, along with documentation in The Smail Tools Manual. 


+ 











— Check Enclosed — Charge my — VISA _ M/C _ Amer. Exp. 
Card# Exp. Date —____ ; 
Name 

Address 





VEY aia leaf cieeneninsinecee SEBO cece GN 
Offer good in U.S. only. Inquire about foreign shipping rates 








> Produce highly optimized code 
Complete development environment: Assembler, 


Linking and Downline Loaders, Runtime Libraries 


Available for Motorola, DEC, and Alcyon host 
computers 
The #1 choice for compact, fast MC680X0 code 


$1495 for C68 (Motorola host) 
$2295 for C68/020 (Motorola host) 


5010 Shoreham Place 
au San Diego, CA 92122 
corporation (619) 587-1155 TELEX 5106004947 


DEC is a Trademark of Digital Equipment Corporation. 
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Excellence 


In your job, it depends on having the best tools available at your 
disposal. With such tools, your productivity increases and your work 
becomes easier. 

Wisely, you keep a sharp eye open for products using the latest 
technology... Those truly representing the state of the art. 

You have now located the source of advanced debugging 
technology for PC-DOS and CP/M-80. More powerful debugging software 
is not available anywhere...at any price. Yet the cost is affordable to even 


the smallest budget. 
DSD-80...Absolutely the most powerful 
and easiest to use debugger for 
CP/M-80. Full screen symbolic design 
now includes a back tracing capability. 
Only 125.00 
DSD-86...New and innovative design 
combines the most sophisticated user 
interface with the most flexible dispay 
to create a neu' generation of 
debugging technology for the IBM PC. 
Only 69.95 


Soft Advances 


P.O. Box 49473 - Austin, Texas 78765 - (512) 478-4763 


Visa & Mastercard Accepted. Please include 4.00 for shipping and handling. 
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LOOKING FOR AT 
PERFORMANCE 
FROM } ? 






















EARTH HAS IT FOR 
LESS THAN $1,000! 


YOUR SEARCH IS OVER!! EARTH 
COMPUTERS’ exciting new high- 
speed, 80286 accelerator card, 
TurboACCEL-286™ , is just what you’ve 
been looking for. The TurboACCEL- 
286 will boost your PC performance up 
to Five times...its completely software 
transparent...and its only $995! 
TurboACCEL-286 will fuction with 
most operating systems and application 
Programs (unlike other so-called 
accelerator boards). 





The TurboACCEL-286 features a 
high-speed, 8MHz, 80286 processor, 
512Kbytes of RAM (expandable to 
1 Mbytes), a switch for 8088 operation, 
and facilities for an 80287 math co- 
processor. It occupies one expansion 
slot, is completely compatible with 
most PCs and is software transparent. 
End your search for AT performance. 
Order the TurboACCEL-286 today! 
Call or write: 


——ees _——_ ee —_— 


EARTH COMPUTERS 
> see 


P.O. Box 8067, Fountain Valley, CA 92728 
TELEX: 910 997 6120 EARTH FV 


(714) 964-5784 


Ask about EARTH COMPUTERS’ other 
fine PC and S-100 compatible products. 
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ASSEMBLE 


LISTING ONE (Text begins on page 122) 


/* a square root algorithm 
04/21/85, R. A. Campbell 
#y 


#define NUMBER 60000 


long 
long 


number, ndivs, 
sqrrt, sqrrto; 


nshfts; 


main () /* a test loop for square root calculation */ 
{ nshfts = ndivs = 0; 
sqrrto = 100; 
for ( number = 0; number <= NUMBER; ++number ) 
{ sqrrt = sqrt ( number }; 
/* for timing, comment out next 2 lines */ 
if ( sqrrt != sqrrto ) 
printf ("sqr %6d=%4d ",number, sqrrt ); 
sqrrto = sqrrt; 


oil 


printf ("\nTot Divs= %u Ave Divs. (x10)= %u", 
ndivs, (10 * ndivs) /NUMBER) ; 
printf ("\nTot Shfts= %u Ave Shfts. (x10)= %u", 


nshfts, (10 * nshfts) /NUMBER) ; 
} 
sqrt ( numb ) /* a ‘rational’ square root */ 
register long numb; 


long guessl, guess2, error; 
for timing checks */ 


{ register 
/* return; 
if ( numb != 0 ) 
{  guessl =1; 
guess2 = numb; 
while ( (guessl << 1) < guess2 ) 


{  guessl <<= 1; /* multiply guessl by 2 */ 
guess2 >>= 1; /* divide guess2 by 2 */ 
++nshfts; /* for statistics */ 

} 

do /* now, check */ 

{ guessl += guess2; /* figure sum */ 
guessl >>= 1; /* fig mean, divide by two */ 


guess2 = numb / guessl1; /* figure quotient */ 
error = guessl - guess2; /* figure error */ 
++ndivs; /* for statistics */ 

} while ( error > 0); 

return guess1; 


} 


else End Listing One 

return 0; 

SSCNSV5<.. GC} F88s 
PROGRAM 
STATIC 1 

Qnumber: DOUBLE 

Qndivs: DOUBLE 

Qnshfts: DOUBLE 

Qsqrrt: DOUBLE 

Qsqrrto: DOUBLE 
PROGRAM 
JUMP Q shell 

Qmain: PROC ei 
VAR 
BEGIN 
MOVQ.D 0,R6 
MOV .D R6, Qndivs 
MOV .D R6,Qnshfts 
MOV .D 100, Qsqrrto 
MOVQ.D 0O,Qnumber 

Ql: CMP .D 60000, Qnumber 
BLT.S :-~Q3 

Gs: MOV .D Qnumber, TOS 
BSR Qsqrt 
MOV.D R6,Qsqrrt 
CMP.D Qsqrrto,Qsqrrt 
BEQ.S- Q5 

Q4: MOV .D Qsqrrt, TOS 
MOV .D Qnumber, TOS 
ADDR 26, TOS 
JSR Qorint f 
ADJSP -8 

Q5: MOV.D Qsqrrt,Qsqrrto 
ADDQ.D 1, Qnumber 
BR.S Ql 

G33 MOV .D 10,R6 
MUL.D Qndivs, R6é 
QUO.D 60000, R6 
MOV .D R6, TOS 
MOV .D Qndivs, TOS 
ADDR Z6+13, TOS 
JSR Qprintf 
ADJSP -8 
MOV .D QOnshfts,R6 
QUO.D 60000, R6 
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MOV .D R6, TOS 
MOV.D Qnshfts,TOS 
ADDR Z26+46, TOS 
JSR Qorintf 
ADJSP -8 
ENDP ROC 
26: BYTE 415; 113, 124, 32537453, 100; 61,.3'7;-92,200, 32 
BYTE 0,10,84,111,116, 32,68,105,118,115, 61,37 
BYTE 51,117, 32,65,118,101, 32,68,105,118,115, 46 
BYTE 40,120,49, 48,41, 61,37,50,117,0,10,84 
BYTE 111, 416,32;83,104,102,116,.1715, 61737, St, 117 
BYTE 32, 65,118,101, 32,83,104,102,116,115, 46,61 
BYTE 34, a0, tte 
End Listing Two 
Qsqrt: PROC ;square root, dividing version 
Znumb: DOUBLE zregisters RO, R6 & R7 used by compiler 
VAR zregisters R1 -— R5 for register variables 
BEGIN <R4,R3,R2,R1,> ;push used registers 
: BR Q15 zfor timing 
MOV.D Znumb, R1 zget number into Rl 
CMPQ.D 0,R1 sis number zero? 
BEQ Q8 zmustn't divide by zero 
Q7: MOVQ.D 1,R2 7guessl = 1 
MOV.D R1,R3 7guess2 = number 
Q9: MOV.D R2,R6 zload guessl 
ASH.D 1,R6 7guessl << 1 
CMP .D R3,R6 ;compare with guess2 
BLE.S Qll zwhile ( (guessl << 1) < guess2 } 
Q10: ASH.D 1,R2 zguessl <<= 1 
ASH.D -1,R3 zquess2 >>= 1 
BR.S Q9 ;see if done 
Qll: 
Q13: ADD.D R3,R2 7guessl += guess2 
ASH.D —1,R2 zguessl /= 2 
MOV .D R1,R6 znumb 
QUO.D R2,R6 znumb / guessl 
MOV.D R6, R3 zguess2 = numb / guessl 
MOV.D R2,R6 
SUB.D R3,R6 
MOV.D R6, R4 yerror = guessl - guess2 
CMPQ.D 0,R4 
BGE.S Q14 zwhile ( error > 0 ) 
BR.S Q13 
Q14: MOV.D R2,R6 ;return guessl 
BR.S Q15 
Q8: MOVQ.D 0,R6 ;return 0 
Q16: 
OSs ENDP ROC yexit 
IMPORT Q shell 00 
IMPORT Qprintf 01 
END ;SCN, 03/22//85 End Listing Three 


LISTING FOUR 


Qsqrt: PROC ;square root, bit-shifting 
Znumb: DOUBLE eee 
VAR 
BEGIN <R4,R3,R1,> ;push registers used 
. BR.S SQRTZ ;for timing 
MOV.D Znumb, RO ;number to RO 
MOVQ.D 0,R1 sestimate = 0 
MOVQ.D 0,R6 strial root = 0 
MOV.B 16, R4 zloop count 
SQRTL: ROT.D 2,RO 72 msb's to 2 lsb's of number 
MOV.B RO, R3 zget shifted number in R3 
AND.B 3,R3 zyisolate 2 lsb's of R3 
ASH.D 2,R1 ;shift estimate 
OR. R3,R1 7;OR 2 lsb's into estimate 
ASH.D 1,R6 zshift trial root 
MOV.D R6,R3 zget trial root 
ASH.D 1,83 strial root * 2 
CMP .D R1,R3 ;compare to estimate 
BLS.S SQRT2 z;need a bit? 
ADDQ.D 1,R6 zadd to trial root 
ADDQ.D 1,R3 zadd to estimate 
SUB.D R3,R1 zadjust estimate 
SORT2: ACB.S -1,R4,SQRTL ;count down, loop 
SQRTZ: ENDPROC ;return root, in R6 


End Listings 
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Work Smart 
with These Powerful 
C Utilities 


Get more value from your C system. 
Boost program quality and slash de- 
velopment time with these professional 
utilities for leading C-compiler systems. 


C Utility Library sjaS $155 
Over 300 C subroutines 

C and assembler source code and 
demonstration programs for screen han- 
dling, color printing, graphics, DOS 
disk and file functions, memory manage- 
ment and peripherals control. 


C-tree $395 $329 
B-Tree database system 

Store, update and retrieve records 
easily. High-level multi-key ISAM 
routines and low-level B-Tree 
functions. Available for MS-DOS, CP/ 
M-86, and CP/M-80. Easily transpor- 
ted. Adaptable for network and 
multiuser. Includes source. 


PHACT $395” $200 
Data Base Record Manager 

Includes high-level features 

found in larger database systems. 
Available for MS-DOS, CP/M-86 

and CP/M-80. 


Pre-C $395 $329 
LINT-like source code analyzer 
Locates structural and usage errors. 
Cross-checks multiple files for bad 
parameter declarations and other inter- 
face errors. 


Windows for C $195°$165 
Versatile window utility 

Supports IBM PC compatible and some 
non-compatible environments. 


PANEL 9S $235 


Screen generating utility 

Create custom screens via simple, 
powerful editing commands. Select 
colors, sizes and types, edit fields. 
Includes direct input utility. 


HALO sze0 $199 


Ultimate C graphics 

A comprehensive package of graphics 
subroutines for C. Supports multiple 
graphics cards. 


PLINK-86 $395 $315 
Overlay linker 


Includes linkage editor, overlay manage- 
ment, a library manager and memory 
mapping. Works with Microsoft and 
Intel object format. 


To order or for information call: 





/CCWAR 


1 800-TEC- WARE 


(In NJ call 201-530-6307) 
Circle no. 109 on reader service card. 


UNIX 1s a regstered TM of Bell Laboratones. C-uee, TM Fuircom, Inc . PHACT TM PHAC T ASSOX 
Pred’. PLINK ¥6. TM PHOENIX. HALO TM Media Cybernetics, Inc . PC lint TM GIMPLE software 
ANEL TM Roundhill Computer Systems. Lid . WINDOWS FOR C TM Creauve Solupons. CP M TM DRI 
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Learn and Use AI Technology 
In Your First Evening 
With PROLOG-86 


A complete Prolog Interpreter, Tutorial, and set of Sample Programs: 


L) Modify and write Expert Systems. L_] Write Symbolic Math or Abstract 
Use the simple ‘‘Guess the animal’’ Problem Solving Applications 
example on the Tutorial or use the This is a complete Prolog program to 
sophisticated system for Section 318 of convert from Farenheit to Centigrade: 
the US Tax Code written by one of the f_to_c(C,F):- C is(F-32) *5/9. Planning 
PROLOG-86 authors and published programs and games are included to 
in the March, 1985 issue of Dr. Dobb’s help you learn. 

Journal. 

_] Understand Natural Language L] BECOME FAMILIAR WITH 

Use the sample program that produces PROLOG IN ONE EVENING. 

a dBase DISPLAY command as output. 


Programming experience is not required, but a logical mind is. Serious development of ex- 
perimental systems is practical with PROLOG-86. | or 2 pages in Prolog is often equivalent 


to 1Oor 15inC. 
RECENT IMPROVEMENTS: MSDOS commands, on-line help, load Editor. 


AVAILABILITY: All MSDOS, PCDOS systems. 


ONLY 
335-D Washington St. 


$125 ce : 
Full refund if not Solution Norwell, Mass. 02061 
satisfied during CS stems ™ 617-659-1571 
first 30 days. < Uj 800-821-2492 
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LEARN LISP 


Interactively and Write ‘‘Realistic’’ Programs 


with TransLISP for Only $75 


A “COMMON LISP”’ compatible Tutorial, Interpreter, Debugging, and 
Pretty Printer plus a Fast, Full Screen Editor, Samples and Help 


(J Start Easily and Quickly: L) Write Realistic Programs: 

A complete, modular tutorial helps you Short examples and substantial programs of 
learn LISP at your own pace. An in- about 10 pages in length help you learn by 
tegrated, interactive environment provides modifying, studying and using the key con- 
all of the elements needed to enter, modify, cepts needed to write programs of 1000 
analyze and debug programs. lines or more. 


L) Natural Language, Expert Systems and L] The ‘‘COMMON LISP”? Standard: 
Mailing List: TransLISP includes a 230+ function 


Natural Language concepts are illustrated subset of the ““COMMON LISP”? Standard. 
by a phone number retrieval program. Use extras like the MSDOS interface and 
Choose the best word processing program graphics. Or use “‘strict compatibility’’ to 
for you with the Expert System. File handl- make programs written in TransLISP, 

ing and typical data processing work are with no changes, work with other COM- 


demonstrated by a Mailing List program. MON LISP systems like VAX LISP, 
GC/LISP or LISP Machine LISP. 


Use and Modify the Mailing List program 
to learn how to handle ‘‘normal’’ programming in LISP. 


Runs on any MSDOS or PCDOS Systems: Not copy-protected, TransLISP is available in just 
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cedure. 192K memory and | floppy drive are the minimums required. 
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$75 SS bi 335-0 Washington St. 
Full refund if not © U ion cater 02061 
satisfied during o ™ -659- 
< ystems 800-821-2492 
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8080 SIMULATOR 


LISTING TWO (Continued from February) 


sul move.b (pseudopc)+, dé ; D6 Sui nn subq.1 #2,pseudosp 
sub.b d,rega lea.1 $18(targbase) ,pseudopc 
move sr,d@ jmp (return) 
and.w regconéf , da 
move.b @(flagptr ,d@.w) ,regf rpo btst #2,regf ; E® Rpo 
jmp (return) bne mloop 
move.b 1(pseudosp) ,d& 
rstif#  move.l pseudopc,d! - D7? Rst 12 rol.w #8,d0 
sub.1 targbase,d1 move.b (pseudosp) ,d@ 
move.b d1,-2(pseudosp) addq.1 #2,pseudosp 
rol.w #8,d1 lea.1 @(targbase,d#.1),pseudopc 
move.b di,-1(pseudosp) jup (return) 
subq.1 #2,pseudosp 
lea.1 $18(targbase) ,pseudopc poph move.b (pseudosp)+,regl (regs) ; El Pop H 
jmp (return) move.b (pseudosp)+,regh(regs) 
jmp (return) 
rc btst #2,regf ; D8 Re 
beq mloop jpo move.b 1(pseudopc) ,dé ; E2 Jpo addr 
move.b 1(pseudosp) ,d@ rol.w #8,dd 
rol.w #8,d0 move.b (pseudopc) , dé 
move.b (pseudosp) ,d@ addq.1 #2,pseudopc 
addq.1 #2,pseudosp btst #2,regf 
lea.1 O(targbase,d@.1),pseudopc bne mloop 
jmp (return) lea.1 @(targbase,d#.1),pseudopc 
jmp (return) 
nopD9 obra illegl ; DY Illegal 
for 8080 | xthl  move.b regi(regs),d@ ; ES Xthl 
ic move.b 1(pseudopc) , dé ; DA Jc addr ee Rise 
rol.w #8,d0 move.b regh(regs) ,d@ | 
move.b (pseudopc) , dé move.b 1(pseudosp) ,regh(regs) 
eC move.b d#,1(pseudosp) 
beq mloop jmp (return) 
lea.1 O(targbase,d.1),pseudopc cho move. b inseudonc) di - E4 Coo 
jmp (return) : rol.w Paes Ae hee ee 
in moveq 40,40 ; DB In nn move.b (pseudopc) , dd 
move.b (pseudopc)+, dé addq.1 #2,pseudopc 
move.1 #$ff0000,ad btst #2,regf 
move.b 0(a0,d0.1),rega bne mloop 
jmp (return) move.l pseudopc, di 
sub.1 targbase,d1 
ce move.b 1(pseudopc) , dd ; DC Cc addr move.b di,-2(pseudosp) 
rol.w #8,d2 rol.w #8,d1 
move.b (pseudopc) , dé move.b di,-1(pseudosp) 
addq.1 #2,pseudopc subq.1 #2,pseudosp 
btst #0,regf lea.1 O(targbase,dd.1),pseudopc 
beq mloop jmp (return) 
move.1 pseudopc,d1 
sub.]1 targbase,d1 
move.b d1,-2(pseudosp) pushh move.b regh(regs) ,-(pseudosp) : ES Push H 
rol.w #8,d1 move.b regl(regs) ,-(pseudosp) 
move.b d1,-1(pseudosp) jmp (return) 
subq.1 #2,pseudosp 
lea.l @(targbase,d0.1),pseudopc ani and.b (pseudopc)+,rega ; E6 Ani nn 
jmp (return) move.b rega,dd 
and.w regconff,d@ 
nopDD obra illegl ; DD Illegal move.b 16(flagptr,dd.w),regf 
for 8680 jmp (return) 
‘ 
sbi asr.b #1,regf ; DE Sbi nn | rst2 move.1 pseudopc,di ; E7 Rst 20 
move.b (pseudopc)+, dd sub.1 targbase,di 
moveq #0,d1 move.b di,-2(pseudosp) 
subx.b d#,rega rol.w #8,d1 
move sr,d@ move.b di,-1(pseudosp) 
and.w regcon#f, dd subq.1 #2,pseudosp 
move.b 0(flagptr ,dd.w) ,regf lea.1 $28(targbase) ,pseudopc 
jmp (return) jmp (return) 
rsti8 move.1 pseudopc,di ; DF Rst 18 rpe btst #2,reef é 
sub.1 targbase,d! : beq mloop ; ere 
move.b d1,-2(pseudosp) move.b 1(pseudosp) , dd 
rol.w #8,d1 rol.w #8,d9 


move.b di,-1(pseudosp) 
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move.b (pseudosp) ,d@ 
addq.1 #2,pseudosp 
lea.1 O(targbase,d%.1),pseudopc 
jmp (return) 






move.w regh(regs) ,d@ ; E9 Pchl 
lea.l 8(targbase,d@.1),pseudope 


jmp (return) 








move.b 1(pseudopc) , dé ; EA Jpe addr 
rol.w #8,d0 

move.b (pseudopc) , dd 

addq.1 #2,pseudopc 

btst #2,regf 

beq mloop 

lea.1 8(targbase,d#.1),pseudopc 

jmp (return) 


Jpe 






















move.w regd(regs) ,d@ 
move.w regh(regs) ,regd(regs) 
move.w d#,regh(regs) 

jmp (return) 















cpe move.b 1(pseudopc) ,d@ ; EC Cpe addr 
rol.w 48,d0 

move.b (pseudopc) , dé 

addq.1 #2,pseudopc 

btst #2,regf 

beq mloop 

move.l pseudopc,d1 

sub.1 targbase,d1 

move.b d1,-2(pseudosp) 

rol.w #8,d1 


move.b di,-1(pseudosp) 


Programming the 


65816 Microprocessor 
Including 6502 and 65C02 
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subq.1 #2,pseudosp 
lea.1 8(targbase,d@.1),pseudope 
jmp (return) 





*preED bra illegl ; ED Illegal for 8882 






ED is a prefix for the popular 2-88 instructions. Some support 
* for them is provided by the minimal 2-88 simulation routines in 
* the next file. 




















move.b (pseudopc)+, da - EE Xri nn 
eor.b d@,rega 

move.b rega,dé 

and.w regconff,d@ 


move.b 16(flagptr,d0.w),regf 
jmp (return) 























rst28 move.l pseudopc,d! ; EF Rst 28 
sub.1 targbase,d1 

move.b d1,-2(pseudosp) 

rol.w #8,d1 

move.b d1,-1(pseudosp) 

subq.1 #2,pseudosp 

lea.l $28(targbase) ,pseudopc 


jmp (return) 











btst #7,regf 

bne mloop 

move.b 1(pseudosp) ,d@ 
rol.w #8,d@ 

move.b (pseudosp) ,d@ 
addq.1 #2,pseudosp 


rp ; F® Rp 






(Continued on next page) 





C-PROGRANMMERS 


File System Utility Libraries 


All products are written entirely in K&R C. Source 
code included, No Royalties, Powerful & Portable. 


75,00 
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* Multiple keys per data file with up to 16 million records per file. 


* Duplicate keys, variable length data records. 

es 41.0).00 

® Greatly speeds application development. 

e Combines ease of use of database manager with flexibility of program- 

ming language. 

e Supports multi key files and dynamic index definition. 

©. Very easy to use. 

Make Se) OOo 

© Patterned after the UNIX utility. 

® Works for programs written in every language. 

® Full macros, File name expansion and built in rules. 

Full Documentation and Example Programs Included. 

149,90 
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Oakville, Ontario, Canada 

L64-255 

(416) 825-0903 


ALL THREE PRODUCTS FOR — 





For more information call or write: 
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LISTING TWO (Continued from February) 


lea.1 8(targbase,d#.1),pseudope 


ue move.b (pseudosp) , dd 
mp (return) 


addq.1 #2,pseudosp 
lea.l O(targbase,d@.1),pseudope 


popp move.b (pseudosp)+,regf ; Fl Pop P jmp (return) 
move.b (pseudosp)+,rega 
jmp (return) sphl move.w regh(regs) ,d@ ; F9 Sphl 
lea.1 O(targbase,d0.1),pseudosp 
Jp move.b 1(pseudopc) ,d@ ; F2 Jp addr jmp (return) 
rol.w #8,d0 
move.b (pseudopc) , dé jm move.b 1(pseudopc) ,d@ ; FA Jm addr 
addq.1 #2,pseudopc rol.w #8,d0 
btst #7,regf move.b (pseudopc) , dé 
bne mloop addq.1 #2,pseudope 
lea.1 6(targbase,d#.1),pseudope btst #7,regf 
jmp (return) beq mloop 
lea.1 8(targbase,d@.1),pseudopc 
di jmp (return) ; F3 Di jmp (return) 
cp move.b 1(pseudopc) , dé ; F4 Cp addr | ei jmp (return) ; FB Ei 
rol.w £8,d0 
move.b (pseudopc) ,d@ cn move.b 1(pseudopc) ,d# ; FC Cm addr 
addq.1 #2,pseudopc rol.w #8,d8 
btst #7,regf move.b (pseudopc) , dé 
bne mloop addq.1 #2,pseudopc 
move.1 pseudopc,d1 btst #7,regf 
sub.1 targbase,d1 beq mloop 
move.b d1,-2(pseudosp) move.1 pseudopc, di 
rol.w #8,d1 sub.1 targbase,d! 
move.b d1,-1(pseudosp) move.b d1,-2(pseudosp) 
subq.1 #2,pseudosp rol.w #8,d1 
lea.1 O(targbase,d#.1),pseudopc move.b d1,-1(pseudosp) 
jmp (return) subq.1 #2,pseudosp 
lea.1 O(targbase,d@.1),pseudopc 
pushp move.b rega,-(pseudosp) :: FS: Pusn:P. jmp (return) 
move.b regf,-(pseudosp) 
jmp (return) nopFD obra illegl ; FD Illegal 
oria or.b (pseudopc)+,rega ; F6 Ori nn ore 
move.b rega,dd cpi cmp.b (pseudopc)+,rega ; FE Cpi nn 
and.w regconff,d@ move sr,d@ - 
move.b 16(flagptr,dé.w) ,regf and.w regconéf ,d@ 
jmp (return) move.b 0(flagptr ,d@.w) ,regf 
jmp (return) 
rst30 move.l pseudopc,d ; F? Rst 32 
sub.1 targbase,d1 rst38  move.l pseudopc,d1 ; FF Rst 38 
move.b d1,-2(pseudosp) sub.1 targbase,d1 
rol.w #8,d1 move.b d1,-2(pseudosp) 
move.b d1,-1(pseudosp) rol.w #8,d1 
subq.1 #2,pseudosp move.b d1,~1(pseudosp) 
lea.1 $38(targbase) ,pseudopc subq.1 #2,pseudosp 
jmp (return) lea.1 $38(targbase) ,pseudopc 
jmp (return) 
rm btst #7,regf ; F8 Ro 
beq mloop 
move.b 1(pseudosp) , dd .end 
rol.w #8,d0 
End Listing Two 


LISTING THREE 


HHH HHH HHH HEHEHE HEHE HEHEHE HEHEHE HEHEHE HEHEHE HEHEHE HEHEHE HEE HE HEHE HEHEHE HEHE IE HEHEHE HEHEHE HEHEHE HEHEHE HEHEHE HEHE HEHEHE HEH HEH HH HH 


* 
% 
* 
* 


This file contains the special Z-8@ simulation routines and 


the Morrow HDC/DMA support routines. 


* 
* 
* 
* 


HHH HEHEHE HEHE HEHEHE HEHEHE HEHEHE HEHEHE HEE HEE HEHEHE HEHE HEHEHE HE HEE HEHEHE FE HEHEHE IEE HEHEHE HEHEHE FE IE HEHE HEHEHE HEHEHE HEHEHE HEHEHE HEHEHE HEHE 


return 
pseudope equ @15,r 


opptr 


110 


globl preED, outspec 
xdef mloop,illegl 


equ @16,r 


equ @14,r- 


; JMP (return) is fast return to MLOOP. 
; 8086's PC is register A5. 
; Pointer to opcode dispatch table. 


(Continued on page 112) 
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POWER PACKS | 





COMPLETE SOURCES 
NO ROYALTIES 


COMPREHENSIVE C Power Packs 
include over 1000 functions which 
provide an integrated environment 
for developing your applications ef- 
ficiently. ‘“This is a beautifully doc- 
umented, incredibly comprehensive 
set of C Function Libraries.” 

— Dr. Dobb’s Journal, July 1984 


USEFUL “‘...can be used as an ex- 
cellent learning tool for beginning C 
Programmers...” 

— PC User’s Group of Colorado, Jan. 1985 


FLEXIBLE Most Compilers and all 
Memory Models supported. 


RECOMMENDED ‘‘| have no hesita- 
tion in recommending it to any pro- 
grammer interested in producing 
more applications code, using more 
of the PC capabilities, in much less 
time.’’ — Microsystems, Oct. 1984 


PACK 1: Building Blocks | $149 

DOS, Keyboard, File, 

Printer, Video, Async 
ga PACK 2: Database 


B-Tree, Virtual Memory, 
Lists, Variable Records 


gg PACK 3: Communications $149 
Smartmodem™, Xon/Xoff, 
X-Modem, Modem-7 
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Data Compression, Graphics 
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Log, Trig, Random, 
Std Deviation 

gy PACK 6: Utilities | $99 


(EXE files) 
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ORGANUM = poeebies 
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pseudosp 
flagptr 
targbase 
regs 


regconfe 
regcong! 
regcon0f 
regcondd 
regf 
rega 


regb 
rege 
regd 
rege 
regh 
regl 
regop1 
regop2 


equ 
equ 
equ 
equ 


equ 
equ 
equ 
equ 
equ 
equ 


equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 


8080 SIMULATOR - 
LISTING THREE (continued from February) 


@13,r 
@12,r 
@11,r 
@11,r 


Nae 99 wa oye as ae 


DOW VO ~*~ 


-8 
-? 
-6 
-5 
-4 
-3 
-2 
-| : 


data 


page 


8680’s SP is register A3. 

Pointer to 8880's flag lookup table is A2. 
Pointer to 8@8@’s address space is Al. 
Base pointer to 808’s registers is Al. 


Register based constant #SE (for speed). 
Register based constant #$1. 

Register based constant ASF. 

Register based constant ASFF. 

8080's Flags 

8088's Accumulator 


Offsets from register base pointer for 
8680's pseudo-registers. 

A & F are in Data Registers. 

Pseudo-PC is kept in an Address Register. 


1 for DAA storage 


Operand 
” 2 53 ” 3 


HHI HEHEHE HE IEE IEE HEHE IE IEE HEHE IE IE IE HE IE IE IESE IE IE IE EE IE HE DEE IE IE HEHE SE HEHE SE IESE SEI FE HE HE HEE HE FE HEHEHE HEHE HEHEHE HEHEHE HE HEHEHE HEHEHE 


* 
* 
* 
* 


Opcode dispatch table. 


One longword entry per opcode of the 


target (Z-8@) processor, including illegals. 


* 
¥ 
* 


* 


HEHE HEHEHE HEHEHE IE IE IE IEE HEHE IE HEHE HEHE IE HE IE HE IE IE HE DE IE IEICE IE IE HE IE HE IED FEE IE HEHE IE HE IE HEHE DE HEHE FE HEHE FE FE HEHEHE HEHEHE HEHEHE HEHE HEHEHE HEHE 


* KK K K K K OK KX * 


Only a few of the most popular instructions are simulated. 
Support for the Z-88 Block move instructions is provided 
as the flags for this simulation resemble those of the 2-80 


rather than the 882. 


Certain packages (notably BDS-C) check 


the flags and mistakenly assume a 2-88, then use LDIR/LDDR. 
Therefore, minimal Z-8% support is provided for these 


instructions. 


By 


of the Z-82. 


no means is this a complete simulation 


* KK KX K KK K OK XK 


HEHEHE IEE IE HE IE IE IEE IE IE IE HEHE IE DEE IE IE HEHE DE HE IE HEHE IE IE HE IE HEHE FE IEE FEE DE IE IESE HEHE SE IE HE HEHE HEHE IESE HEHE HEHE HEHE HEHEHE HEHE HEHEHE HEHEHE HE 


EDoptab 


even 

dc.1 0,6,0,0,0,0,0,2 ; EDOO 
dc.1 0,0,0,0,0,0,0,0 

dc.1 0,0,0,0,0,0,0,0 ; ED1I2 
dc.1 6,0,0,0,0,0,0,0 

dc.1 0,0,0,0,0,0,0,0 ; ED20 
dc.1 0,0,0,0,0,0,0,0 

dc.1 0,0,0,0,0,0,0,0 ; ED30 
dc.1 6,0,0,0,0,0,0,0 

dc.1 0,0,0,0,0,0,0,8 ; ED40 
dc.1 0,0,0,0,0,0,0,0 

dc.1 0,0,0,0,0,0,0,0 ; ED52 
dc.1 6,0,0,0,0,0,0,0 

dc.1 0,0,0,0,0,0,0,8 ; ED62 
dc.1 0,6,0,0,0,0,0,8 

dc.1 6,6,0,0,0,0,0,0 ; ED70 
dc.1 6,0,0,0,0,0,0,0 

dc.1 0,0,0,8,0,0,0,0 - ED82 
dce.1 0,0,0,0,0,0,0,0 

dc.1 0,8,8,0,0,0,0,8 ; ED9O 
dc.1 0,0,0,80,0,0,0,0 

dc.1 0,0,0,0,0,0,0,0 ; EDAG 
dc.1 0,6,0,0,0,0,0,0 

dc.1 ldir,cpir,0,0,0,0,0,0 ; EDBO 
de.1 lddr,6,0,0,08,0,0,8 

dc.1 6,6,0,0,0,0,0,8 - EDCO 
dc.1 6,0,6,0,0,0,0,8 

dc.1 6,6,0,0,0,0,0,0 - EDDS 
dc.1 0,0,0,0,0,0,0,8 

dc.1 8,0,0,0,0,0,0,0 ; EDE 
dc.l 0,0,0,0,0,0,0,0 


(Continued on page 114) 
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8080 SIMULATOR 
LISTING THREE (continued from February) 


moveq #0,d1 

move.b (pseudopc)+,d1 
asl #2,d1 

lea.1 EDoptab,ad 
move.1 0(a@,d1.w),-(sp) 
beq illgED 

rts 

move.l (sp)+,d1 

dec.1 pseudopc 

bra illegl 


page 





; EDF@ 


; Zero-fill high bits. 
; Grab next opcode. 


; Do the operation. 


- Trash the address, 


; fix PPC for ILLEGAL. 


HEIE IEE HE HE IE IEE HEHEHE IEE HEIDE IE HEE IE FE FE IESE IE IE FE HE IE IESE IE IE IE FE HE IE IE IE IEE DE IE FE DE DE FE DE DE DE HEHE FE FE HEHEHE HE IE HE HEHEHE HE HE HEHEHE HE HE HEHEHE 


* 
¥ 
* 


Z-88 opcode simulation routines. 


* 
¥ 
* 


HEHEHE IE IE HEHE IE HE IE IE HE IE IE HE IE IE IE IE IESE FE DE IE SE DE SE FEE FE DE DE SEE DE HE IE FE FE IE IE SE DE SE HE IE DE IE IE FE HE IE FE IE HE HE IE IE HEHE HEHEHE HEHEHE HEHE HEHEHE HEE 


ldir 


ldirlop 


lddr 


lddrlop 


cpir 


move.l d2,-(sp) 
move.w regb(regs) ,d@ 
dec.w dQ 

moveq #0,d1 

moveq #0,d2 

move.w regh(regs) ,d1 
move.w regd(regs) ,d2 
move.1 a5,-(sp) 
lea.l O(targbase,d2.1),a5 
lea.1 O(targbase,d1.1),ad 
move.b (a®)+,(a5)+ 
inc.w di 

inc.w d2 

dbra d@,ldirlop 
move.1 (sp)+,ab 
move.w di,regh(regs) 
move.w d2,regd(regs) 
move.w #0,regb(regs) 
moveq #0,regf 

move.1 (sp)+,d2 

jmp (return) 


move.1 d2,-(sp) 
move.w regb(regs) ,d0 
dec.w dd 

moveq #0,d1 

moveq #0,d2 

move.w regh(regs) ,dl 
move.w regd(regs) ,d2 
move.l a5,-(sp) 
lea.1 1(targbase,d2.1),a5 
lea.1 1(targbase,d1.1),a@ 
move.b -(a®),-(a5) 
dec.w dl 

dec.w d2 

dbra d@,lddrlop 
move.1 (sp)+,a5 
move.w d1,regh(regs) 
move.w d2,regd(regs) 
move.w #0,regb(regs) 
moveq 40,regf 

move.1 (sp)+,d2 

jmp (return) 


page 

move.w regb(regs) ,d@ 
dec.w dQ 

moveq #0,d1 


Grab count, 
adjust for DBRA later. 


Grab source. 
Grab dest. 
Need an address reg. 


Restore result registers. 


Grab count, 
adjust for DBRA later. 


Grab source. 
Grab dest. 
Need an address reg. 


Restore result registers. 


Grab count, 
adjust for DBRA later. 
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move.w regh(regs) ,d1 
lea.l @(targbase,d1.1),ad 
cpirlop inc.w dl 
cmp.b (a)+,rega 
dbeq d@,cpirlop 
seq regf 
move.w di,regh(regs) 
inc.w d@ 
move.w d@,regb(regs) 
tst.b regf 
bne cpir1 
moveq #0,regf 
jmp (return) 
cpirl tst dé 
beq cpir2 
moveq #$44,regf 
jmp (return) 
cpir2 moveq #$40,regf 
jmp (return) 


- Grab source. 


; Restore result registers. 


Not found. 


Found, in the string. 


Found, but at last place. 


page 
HHH HHH HHH HEHE HEHEHE HEHE HEH HEHE HEHEHE HEHEHE HEHEHE HEHEHE HEHEHE HEHEHE HEE FEE HEHEHE HEHEHE HEHE HEHE HEE HEHEHE HEHE IE HEHEHE HEHEHE HEHE HEE 
* ¥ 
* Output instruction simulator for Morrow HDDMA * 
* * 


HH HH HHH KEKE HEH HEHEHE HEHE HEHEHE HEHEHE HEHEHE HEHE HEHEHE HEHEHE HEE HEHEHE IEEE EE HEHE HEHE HEHEHE HEHEHE HEE IEE HEHEHE HEHE HEHEHE HEHE HEHEHE 


outspec move.1 d3,-(sp) 
cmp.b #$55,d0 
beq hdstart 
move.l #hdbuf,d1 
move.1 #$50,a@ 
move.b d1,(a@)+ 
ror.l #8,d1 
move.b d1,(a@)+ 
ror.l #8,d1 
move.b di,(a@)+ 


move.l1 #Sff0000 ,ad 
adda.l1 d@,a@ 
move.b rega, (af) 
move.1 (sp)+,d3 
jmp (return) 


hdstart move.1 dmalink,a®@ 
adda.l targbase,ad 
moveq #0,d1 
move.b (af@)+,d1 
ror.1 #8,d1 
move.b (a@)+,d1 
ror.l #8,d1 
move.b (a®)+,d1 
rol.l #8,d1 
rol.l #8,d1 
move.l di,a@ 
adda.1 targbase,af 
move.1 a6,-(sp) 
lea.l hdbuf,a6 
move.w #3,d1 
hdloop move.b (a8)+,(a6)+ 
dbra d1,hdloop 
moveq #0,d3 
move.b (a@)+,d3 
ror.l #8,d3 
move.b (a@)+,d3 
ror.l #8,d3 
move.b (a%)+,d3 
rol.l #8,qd3 
rol.l #8,d3 
add.1 targbase,d3 
move.b d3,(a6)+ 
ror.l #8,d5 
move.b d3,(a6)+ 
ror.1 #8,d3 
move.b d3,(a6)+ 
move.w #5,d1 
hdloop2 move.b (a0)+,(a6)+ 
dbra di,hdloop2 
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Start command? Do it, 
else build first link to host buffer 
if it’s a HDRESET command. 


Do the output to HDDMA. 


Move target buffer to host buffer, do 


all appropriate patching of addresses. 


Get link address. 


; Fix DMA address to -> target area. 


; Move rest of command buffer. 


(Continued on page 118) 


MetaScope: 
The Debugger 


MetaScope gives you everything you've 
always wanted in a debugger: 


@ Multiple Windows 
Open and close, move through memory, 
display data or disassembled code. 


Full Symbolic Capability 
Read symbols from files, define new ones, 
use anywhere. 


Powerful Expression Evaluation 
Use any standard assembler operators or 
number formats. 


Direct to Memory Assembler 
Enter instruction statements for direct 
conversion to code in memory. 


and More! 

Log file for operations and displays, 
breakpoint and trace execution, modify/ 
search/fill memory, etc. 


MetaScribe: 
The Editor 


MetaScribe has the features you need in 
a program editor: 


@ Full Mouse Support 
Use for text selection, command menus, 
scrolling — or use key equivalents when 
more convenient. 


Multiple Undo 
Undo all commands, one at a time, to level 
limited only by available memory. 


Sophisticated Search/Replace 
Regular expressions, forward/backward, 
full file or marked block. 

Multiple Windows 

Work with different files or different 
portions of the same file at one time. 
Keystroke Macros 

Record keystroke sequences or predefine, 
assign to keys you choose. 

and More! 

Copy between files, block copy/move/ 
delete, set tabs and margins, etc. 


MetaTools I 


A comprehensive set of tools to did your 
programming (full source included): 


MetaMake Program maintenance utility. 
Grep Sophisticated pattern matching 
Phe bhai 

Bat 3) Source file compare. 

Stig Text file filter. 

Comp Simple file compare. 

Dump File dump utility. 

MetaSend Amiga to PC file transfer. 

MetaRecv PC to Amiga file transfer. 

Metadigm products are designed to fully 

utilize the capabilities of the Amiga™ in 

helping you develop your programs. If 

you're programming the Amiga, you 

can’t afford to be without them. 
MetaScope $95.00 
MetaScribe $85.00 
MetaTools $69.95 


(California residents +6%). 
Visa/MasterCharge accepted. 


Amiga is a trademark of Commodore-Amiga Inc. 


Metadiém, Inc. 


19762 MacArthur Blvd., Suite 300 
Irvine, CA 92715 
(714) 955-2555 
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PRIME FEATURES 


e Execute DOS level commands 
in HS/FORTH, or execute DOS 
and BIOS functions directly. 

e Execute other programs under 
HS/FORTH supervision. 
(editors debuggers file managers etc) 

e Use our editor or your own. 

e Save environment any time 
as .COM or .EXeE file. 

¢ Eliminate headers, reclaim 
space without recompiling. 

e Trace and decompile. 

® Deferred definition, 
execution vectors, case, 
interrupt handlers. 


FORTH 


e Full 8087 high level support. 
Full range transcendentals 
(tan sin cos arctan logs exponentials) 
e Data type conversion and 
|/O parse/format to 18 
digits plus exponent. 
© Complete Assembler 
for 8088, 80186, and 8087. 
¢ String functions - 
(LEFT RIGHT MID LOC COMP 
XCHG JOIN) 
Graphics & Music 
Includes Forth-79 and Forth-83 
File and/or Screen interfaces 
Segment Management 
Full megabyte - programs or data 
Fully Optimized & Tested for: 
IBM-PC XT AT and JR 
COMPAQ and TANDY 1000 & 2000 
(Runs on all true MSDOS 
compatibles!) 
¢ Compare 
BYTE Sieve Benchmark jan 83 
HS/FORTH 47 sec BASIC 2000 sec 
with AUTO-OPT 9 sec Assembler 5 sec 
other Forths (mostly 64k) 55-140 sec 
FASTEST FORTH SYSTEM 
AVAILABLE. 
TWICE AS FAST AS OTHER 
FULL MEGABYTE FORTHS! 


(TEN TIMES FASTER WHEN USING AUTO-OPT!) 
HS/FORTH, complete system only: $270. 
"a. Visa Mastercard Ss 


HARVARD 
SOFTWORKS 


P.O. BOX 69 
SPRINGBORO, OH 45066 
(513) 748-0390 
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8080 SIMULATOR 


LISTING THREE (Continued from February) 


move 
move 


.1 Andbuf,d‘ 
.b di, (a6)+ ; Point host buffer to self. 


ror.1 #8,d1 


move 


.b di, (a6)+ 


ror.l1 #8,d1 


move 
move 


move 


move 


move. 


.1 #SfPOO06 ,a® 
adda. 


.b di, (a6)+ 
.l (sp)+,a6 
move. 
suba. 
move. 


1 a®,-(sp) ; Save STATUS address for return val. 
1 targbase,al 
1 a@,dmalink ; Stash new target link address. 


Do the output to HDDMA. 
1 d0,ad 


.b rega, (a®) 


1 #Ahdbuf+12,al Wait for completion 


hdloop3 tst.b (a) 


beq hdloop3 


move 


move. 


move 


Fragile, but what do you want for $1.20? 


.b (a) ,di 
1 (sp)+,ad ; Grab the STATUS address in target space. 
.b di,-(a®) ; And stash status for it. 


move.1 (sp)+,d3 


jmp (return) 


data 
even 


dmalink dce.l 


Return to simulation. 


$58 ; Storage for current HDDMA command buffer. 


hdbuf ds.b 16 


end 


End Listing Three 


LISTING FOUR 


HHH HEHEHE HEHE IE HEHE IEE HEHEHE IE HEHE IE HEHEHE HEHEHE IE HEHE HEHE HEHEHE HE HEHEHE HE HEHEHE HEHEHE HE HEHEHE HEHE HEHEHE HEHE HEHEHE HEHE HEHEHE HEHEHE HEH KK 


* * 
* This file contains the mnemonic strings for the 8088 opcodes. * 
* These are used in tracing. * 
* * 


HH HHH HEHEHE HEHEHE HEHEHE HEHEHE HEHEHE HEHEHE EI HEHE HEHE HEHEHE HEHEHE HEHE HEHEHE HEHE HEHEHE HE HEHEHE HEHEHE HEHE HEHE HEHEHE HEHEHE HEHEHE HH HHH 


globl mnops 


data 


mnops dc. 


Q 
Q 
. . * . = . * . . . . . . oS . . . s . . . . 
be 


mnnop ,mnlxib,mnstaxb,mninxb,mninrb,mndcrb,mnmvib,mnrica 
mnnopé8 , mndadb ,mnldaxb,mndcxb,mninrc,mnderc,mnmvic,mnrrca 
mnnop1%,mnlxid,mnstaxd,mninxd,mninrd,mndcerd,mnmvid,mnral 
mnnop18,mndadd,mnldaxd,mndcxd,mninre,mndcre,mnmvie,mnrar 
mnnop28 ,mnlxih,mnshld,mninxh, mninrh,mndcrh,mnmvih,mndaa 

mnnop28 ,mndadh,mnlhld,mndcxh,mninrl,mndcr1,mnmvil,mncma 

mnnop38 ,mnlxis,mnsta,mninxs,mninrm,mndcrm,mnmvim,mnstc 

mnnop38 ,mndads ,mnlda,mndcxs,mninra,mndcra,mnmvia,mncmc 

mnmovbb ,mnmovbc ,mnmovbd,mnmovbe ,mnmovbh, mnmovb1 ,mnmovbm, mnmovba 
mnmovcb ,mnmovec ,mnmoved, mnmovce ,mnmovch,mnmovcl ,mnmovem, mnmovca 
mnmovdb ,mnmovdc ,mnmovdd, mnmovde , mmmovdh, mnmovdl , mnmovdm, mnmovda 
mnmoveb ,mnmovec ,mnmoved,mnmovee,mnmoveh, mnmovel ,mnmovem,mnmovea 
mnmovhb ,mnmovhc, mnmovhd,mnmovhe ,mnmovhh,mnmovhl ,mnmovhm,mnmovha 
mnmovlb,mnmovlc,mnmovld,mnmovle,mnmovlh,mnmovll,mnmovlm,mnmovla 
mnmovmb ,mnmovme ,mnmovmd ,mnmovme , mnmovmh,mnmovml ,mnhalt , mnmovma 
mnmovab , mnmovac ,mnmovad, mnmovae,mnmovah, mnmoval ,mnmovam, mnmovaa 
mnaddb ,mnaddc,mnaddd,mnadde,mnaddh, mnaddl , mnaddm,mnaddaa 

mnadcb ,mnadcc,mnadcd,mnadce,mnadch, mnadcl ,mnadcm,mnadca 

mnsubb ,mnsubc, mnsubd,mnsube,mnsubh,mnsubl , mnsubm, mnsubaa 
mnsbbb,mnsbbc,mnsbbd,mnsbbe,mnsbbh,mnsbbl ,mnsbbm,mnsbba 

mnandb ,mnandc, mnandd,mnande,mnandh, mnand1l , mnandm, mnanda 
mnxrab,mnxrac ,mnxrad,mnxrae,mnxrah,mnxral,mnxram,mnxraa 
mnorab,mnorac,mnorad,mnorae,mnorah,mnoral ,mnoram,mnoraa 
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de. 
ac: 
dc. 
dc. 
dc. 
dc. 
dc. 
de. 
de. 


pag 


l 
1 
l 
l 
1 
l 
1 
l 
1 


e 


mncmpb,mncmpc,mncmpd,mncmpe,mncmph,mncmp1 ,mncmpam,mncmpaa 
mnrnz,mnpopb ,mnjnz,mnjmpa,mncenz,mnpushb,mnadi,mnrstd 
mnrz,mnret ,mnjz,mnnopCB ,mncz,mncall,mnaci,mnrsts 
mnrnc,mnpopd,mnjnc,mnout,mncnc,mnpushd,mnsui,mnrst10 
mnrc,mnnopD9 ,mnjc,mnin,mncc,mnnopDD,mnsbi,mnrst18 
mnrpo,mnpoph,mnjpo,mnxthl ,mncpo,mnpushh, mnani ,mnrst2d 
mnrpe,mnpchl ,mnjpe,mnxchg ,mncpe,mnpreED,mnxri,mnrst28 
mnrp,mnpopp ,mnjp,mndi,mncp,mnpushp,mnoria,mnrst30 
mnrm,mnsphl,mnjm,mnei,mncm,mnnopFD,mncpi ,mnrst38 


HH KKK KKH HIKE HHH HHH HEHEHE IH IEE HEHE HEHEHE EEE IEEE HEHEHE HEHEHE HEHEHE IEE IE HEHEHE HEHEHE HEHE IEE HEHEHE HEHEHE HEHE HEHE HHH 


* 
* 
* 
* 


Mnemonic Strings. 


* 
The first character flags operands. * 


Blank is nothing, A is an address, C is a constant. * 


* 


HHH HHH HEHEHE HEHE HEHEHE HEHEHE HEE HEHE HEHEHE HEHEHE HEHE HEHEHE HEE IE HEHEHE HEHE HEHEHE HEHEHE HE HEHEHE IE IE HEHEHE HEHE HEHEHE HEHEHE HHH IE 


mnnopQs 
mnlxib 
mnstaxb 
mninxb 
mninrb 
mndcrb 
mnmvib 
mnrica 
mnnop28 
mndadb 
mnildaxb 
mndcxb 
mninre 
mnderce 
mnmvic 
mnorrca 
mnnop12 
mnlxid 
mnstaxd 
mninxd 
mninrd 
mndcrd 
mnmvid 
mnral 
mnnop18 
mndadd 
mnldaxd 
mndcxd 
mninre 
mndcre 
mnmvie 
mnrar 
mnnop2g 
mnlxih 
mnshld 
mninxh 
mninrh 
mndcrh 
mnmvih 
mndaa 
mnnop28 
mndadh 
mnlhld 
mndcxh 
mninrl 
mndcerl 
mnmvil 
mncma 
mnnop38 
mnlxis 
mnsta 
mninxs 
mninrm 
mnderm 
mnmvim 
mnstc 
mnnop38 
mndads 
mnida 
mndcxs 
mninra 


dec. 
de. 
de. 
dc. 
de. 
de. 
de. 
de. 
de. 
de. 
dc. 
de. 


de. 
dc. 
de. 
de. 


dc. 
dc. 


de. 
dc: 
de. 
de. 
de. 


b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
.b 
.b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
b 
dc.b 


” NOP$” 

"ALXI B,$” 

” STAX BS” 

” INX BS” 

” INR BS” 

” DCR BS” 

"CMVI B,S” 

53 RLCS$” 

” ILLEGAL FOR 8880$” 
” DAD BS” 

” LDAX BS” 

DCX BS” 

” INR C$” 

”" DCR C$” 

" MVI CS” 

3 RRC$” 

” ILLEGAL FOR 888$” 
"ALXI D,$” 

” STAX DS” 

” INX D$” 

” INR DS” 

” DCR D$” 

"CMVI D,$” 

” RAL$S” 

” ILLEGAL FOR 8880$” 
” DAD DS” 

” LDAX DS” 

” DCX DS” 

” INR E$” 

” DCR ES” 

"CMVI E,$” 

8 RAR$” 

” ILLEGAL FOR 8880$” 
"ALXI H,$” 

"ASHLD $” 

” INX HS” 

” INR H$” 

” DCR H$” 

"CMVI H,$” 

” DAAS” 

” ILLEGAL FOR 8880$” 
” DAD H$” 

"ALHLD $” 

oS DCX H$” 

” INR L$” 

” DCR L$” 

"CMVI L,$” 

” CMAS$” 

” ILLEGAL FOR 8882$” 
"ALXI S,$” 

"ASTA $” 

” INX S$” 

” INR M$” 

” DCR M$” 

"CMVI M,$” 

” STC$” 

”" ILLEGAL FOR 888$” 
” DAD S$” 

"ALDA $” 

” DCX S$” 

” INR A$” 


(Continued on next page) 
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1 800-TEC- WARE 


is ed 
Apprentice C TM & Software Systems, Inc 





s Thinking 
about 
C? 








Stop Thinking- 
Start Programming Today! 


SPECIAL INTRODUCTORY OFFER! 
C’ Prime, Personal Computing and C, 


Plus Apprentice C. 
A $169 value only 


$99 


NEW FROM MANX AZTEC! 
C’ Prime 399 $79 


Never has C been easier to learn. 
Manx Aztec is now offering a com- 
plete C system called C’ Prime at an 
exceptionally low price. This powerful 
system includes a Compiler, Linker, 
Assembler, Editor, Libraries and Ob- 
ject Librarian. C PRIME supports a 
host of third-party software. 


C Apprentice $4995 $39.95 


Learn C quickly with this complete, 
easy-to-use C language interpreter. 
Apprentice C includes a complete one- 
step compiler that executes with lightn- 
ing speed, an editor, and a 

run-time system. 


NEW FROM ASHTON-TATE! 
Personal Computing and C 


A detailed, easy-to-understand guide to 
C programming prepared especially by 
Ashton-Tate for use with the new 
Aztec C’ Prime. Includes chapters on 
C programming basics, function 
libraries, data handling, and advanced 
features, plus a complete money man- 
agement demonstration program. 







(In NJ call 201-530-6307) 


f Bell Laboratones. dBase TM Aston Tate. Inc. MANX AZTEC. C PRIME. 
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8080 SIMULATOR 


LISTING FOUR (Continued from February) 


mndera dc.b ” DCR A$” mnaddm dc.b ” ADD M$” mnrst8 dc.b ” RST 8$” 

mnmvia dc.b "CMVI A,$” mnaddaa dc.b ” ADD A$” mnrnc§ 3 dc.b ” RNCS” 

mncmc dc.b ” GMCS” mnadcb dc.b ” ADC BS” mnpopd dc.b ” POP D$” 

mnmovbb dc.b ” MOV B,B$” mnadcc dc.b ” ADC C$” mnjnc dc.b "AJNC $” 

mnmovbc dc.b ” MOV B,C$” mnadced dc.b ” ADC D$” mnout dc.b "COUT $” 

mnmovbd dc.b ” MOV B,D$” mnadce dc.b ” ADC ES” mncenc dc.b "ACNC $” 

mnmovbe dc.b ” MOV B,E$” mnadch dc.b ” ADC H$” mnpushd dc.b ” PUSH D$” 

mnmovbh dc.b ” MOV B,H$” mnadcl dc.b ” ADC L$” mnsui dc.b "CSUI $” 

mnmovbl dc.b ” MOV B,L$” mnadem dc.b ” ADC M$” mnorsti@ dc.b ” RST 10%” 

mnmovbm dc.b ” MOV B,M$” mnadca dc.b ” ADC AS” mnrc ~— de.b © RCS" 
mnmovba dc.b ” MOV B,A$” mnsubb dc.b ” SUB BS” mnnopD9 dc.b f ILLEGAL FOR 8£8$ 
mnmoveb de.b ” MOV C,BS” mnsube de.b ” SUB C$” mjc de.b “AUC $ 

mnmovec dce.b ” MOV C,C$” mnsubd dc.b ” SUB DS” mnin dc.b "CIN - 

mnmoved dc.b ” MOV C,D$” mnsube de.b ” SUB ES" mice ~—dc.b "ACC $ x 
mnmovee dc.b ” MOV C,ES” mnsubh dc.b ” SUB H$” mnnopDD dc.b s ILLEGAL FOR 8£8$ 
mnmovch dc.b * MOV C,H$” mnsubl dc.b ” SUB L$” mnsbi dc.b OSBI $ Si 

mnmovel dc.b ”* MOV C,L$” mnsubm dc.b ” SUB M$” mnrsti8 dc.b 5 RST 18S 

mnmovem dc.b ” MOV C,M$” mnsubaa dc.b ” SUB A$” mnrpo de.b : RPOS g 

mnmovea dc.b ” MOV C,A$” mnsbbb dc.b ” SBB BS” mnpoph dc.b ” POP HS 

mnmovdb dc.b ” MOV D,B$” mnsbbc dc.b ” SBB C$” mnjpo dce.b "AJPO $ 

mnmovde dc.b ” MOV D,C$” mnsbbd dc.b ” SBB D$” mnxthl dc.b ” XTHLS” 

mnmovdd dc.b * MOV D,D$” mnsbbe dc.b ” SBB E$” mncpo dc.b "ACPO $” 

mnmovde dc.b ” MOV D,E$” mnsbbh dc.b ” SBB H$” mnpushh de.b ” PUSH H$” 

mnmovdh dc.b ” MOV D,H$” mnsbbl dc.b ” SBB L$” mnani dc.b "CANI $” 

mnmovdl dc.b ” MOV D,L$” mnsbbm dc.b ” SBB M$” mnrst2@ dce.b ” RST 20$” 

mnmovdm dc.b ” MOV D,M$” mnsbba dc.b ” SBB A$” mnrpe dc.b ” RPES” 

mnmovda dc.b ” MOV D,A$” mnandb dc.b ” ANA BS” mnpchl dc.b ” PCHL$” 

mnmoveb dc.b ” MOV E,BS$” mnandec dc.b ” ANA C$” mnjpe dc.b "AJPE $” 

mnmovec dc.b ” MOV E,C$” mnandd dc.b ” ANA D$” mnxchg dc.b ” XCHG$” 

mnmoved dc.b ” MOV E,D$” mnande dc.b ” ANA E$” mncpe dc.b "ACGPE $” 

mnmovee dc.b ” MOV E,E$” mnandh dc.b ” ANA H$” mnpreED dc.b ” ILLEGAL FOR 82883” 
mnmoveh dc.b ” MOV E,H$” mnandl dc.b ” ANA L$” mnxri dc.b "CXRI $” 

mnmovel dce.b ”* MOV E,L$” mnandm dc.b ” ANA M$” mnrst28 dc.b ” RST 28S” 

mnmovem dc.b ” MOV E,M$” mnanda dc.b ” ANA A$” mnrp dc.b ” RP$” 

mnmovea dc.b ” MOV E,A$” mnxrab dc.b ” XRA BS” mnpopp dc.b ” POP P$” 

mnmovhb dc.b ” MOV H,BS” mnxrac dc.b ” XRA C$” mnjp dc.b "AJP $” 

mnmovhc dc.b ” MOV H,C$” mnxrad dc.b ” XRA D$” mndi de. b. "DIS" 

mnmovhd dc.b ” MOV H,D$” mnxrae dc.b ” XRA ES” micp = =de.b "ACP $” 

mnmovhe dc.b ” MOV H,E$” mnxrah dc.b ” XRA H$” mnpushp dc.b ” PUSH P$” 

mnmovhh dc.b ” MOV H,H$” mnxral dc.b ” XRA L$” mnoria dce.b "CORI $” 

mnmovhl dc.b " MOV H,L$” mnxram dc.b ” XRA M$” mnrst3@ dc.b ” RST 30S” 

mnmovhm dc.b ” MOV H,M$” mnxraa dc.b ” XRA A$” morm = =de.b ” RMS” 

mnmovha dc.b ” MOV H,A$” mnorab dc.b ” ORA BS” mnsphl dc.b ” SPHL$” 

mnmovlb dc.b ” MOV L,BS” mnorac dc.b ” ORA C$” mnjm dc.b "AJM $” 

mnmovic dc.b ” MOV L,C$” mnorad dc.b ” ORA D$” mnei de.b ” EI$” 

mnmovld dc.b ” MOV L,D$” mnorae dc.b ” ORA E$” mncm de.b "ACM $” 

mnmovle dc.b ” MOV L,ES” mnorah dc.b ” ORA H$” mnnopFD dc.b ” ILLEGAL FOR 8282S” 
mnmovlh dce.b ” MOV L,H$” mnoral dc.b ” ORA L$” mncpi dc.b "CCPI $” 

mnmovll dce.b ” MOV L,L$” mnoram dc.b ” ORA M$” mnrst38 dc.b ” RST 38$” 

mnmovlm dc.b ” MOV L,MS” mnoraa dc.b ” ORA A$” .end 

mnmovla dc.b ” MOV L,A$S” mncmpb dc.b ” CMP BS” 

mnmovmb dc.b ” MOV M,BS” mnempe dc.b ” CMP C$” 

mnmovmc dc.b ” MOV M,C$” mncmpd dc.b ” CMP D$” 

mnmovmd dc.b ” MOV M,D$” mncmpe dc.b ” CMP E$” 

mnmovme dc.b ” MOV M,E$” mncmph dc.b ” CMP H$” 

mnmovmh dc.b ” MOV M,H$” mncmpl dc.b ” CMP L$” s 4s 
mnmovml dc.b ” MOV M,L$” mncmpam dc.b ” CMP M$” See os % 
mnhalt dc.b ” HLT$” mncmpaa dc.b ” CMP A$” 

mnmovma dc.b ” MOV M,A$” mnrnz dc.b ” RNZ$” 

mnmovab dc.b ” MOV A,BS” mnret dc.b ” RET$” 

mnmovac dc.b ” MOV A,C$” mnpopb dc.b ” POP BS” 

mnmovad dc.b ” MOV A,D$” mnijnz dc.b "AJNZ $” 

mnmovae dc.b ” MOV A,E$” mnjmpa dc.b "AJMP $” 

mnmovah dc.b ” MOV A,H$” mncnz dc.b "ACNZ $” 

mnmoval dc.b ” MOV A,L$” mnpushb dc.b ” PUSH B$” 

mnmovam dc.b ” MOV A,M$” mnadi dc.b "CADI $” 

mnmovaa dc.b ” MOV A,A$” mnrst® dc.b ” RST 2$” 

mnaddb dc.b ” ADD BS” mnrz dc.b ” RZ$” 

mnaddc dc.b ” ADD C$” mnjz dce.b "AJZ $” 

mnaddd dc.b ” ADD D$” mnnopCB dc.b ” ILLEGAL FOR 8@8@$” 

mnadde dc.b ” ADD E$” mncz dc.b "ACZ $” 

mnaddh dc.b ” ADD H$” mncall dc.b "ACALL $” 

mnaddl dc.b ” ADD L$” mnaci dc.b "CACI $” 
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he square root routine for the 

68000 by Jim Cathey (16-Bit Soft- 
ware Toolbox, May 1985) is an exam- 
ple of the looping and bit-shifting 
routines that must be used on a mi- 
croprocessor with limited arithmetic 
ability (i.e., 8- or 16-bit registers and 
only addition and subtraction). How- 
ever, this kind of bit-level thinking 
seems unnecessary and even unde- 
sirable with a microprocessor such 
as the NS320XX or the 68000. A pro- 
grammer would be better off attack- 
ing such problems as computing 
square roots from a higher level. 

The NS320XX group is made by Na- 
tional Semiconductor (my NS16032 
was an earlier version) and the 68000 
by Motorola: They can perform 8-, 
16-, and 32-bit addition, subtraction, 
multiplication, division, and modulo 
operations on data in registers and 
memory. The NS320XX, in particular, 
was Clearly designed with high-level 
language compilation in mind. AI- 
though it does have bit-level capabili- 
ties, it actually performs better at a 
higher level. 

I have described a routine for cal- 
culating square roots and have pre- 
sented it in both C-language program 
form (Listing One, page 106) and as- 
sembly language for the NS320XX pro- 
cessor (Listing Two, page 106). Com- 
piling, assembling, and linking takes 
about 112 minutes on a system with 
relatively slow floppy-disk access. I 
hope that one of these presentations 
will be helpful to you. I often find it 
frustrating to try to understand an 
interesting programming approach 
to a problem when it is only general- 


by Richard A. Campbell 


ly described or when it is presented 
in a language I am vaguely familiar 
with. 

The square root of a real number is 
one of two equal factors of that num- 
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ber and, of course, the square of the 
square root equals the number. 
When dealing with integers, howev- 
er, the situation is somewhat differ- 
ent. The square root of an integer is 
the smallest of the two most nearly 
equal factors of that number. For ex- 
ample, the two most nearly equal in- 
teger factors of 255 are 15 and 17, and 
the square root of 255 is 15. The inte- 
ger square root when squared may 
not equal the number. 

This routine has two stages. The 
first is to find two roughly equal fac- 
tors of the number, guess1 and 
guess2, in the quickest possible way. 
Initially, guessi1 is set to 1 and guess2 
is set to the number for which the 
square is desired. Guess1 is then mul- 
tiplied and guess2 is divided by two 
until their values are approximately 
equal. An average of the two guesses 
is calculated as the trial square root, 
and we move to the testing stage. In 
all cases, multiplication and division 
by two are done by the faster meth- 
ods of left and right shifting. 

This trial square root now becomes 
guess1 and is tested by dividing it into 
the number, and the quotient be- 
comes guess2. An error term is calcu- 
lated by subtracting guess2 from 
guess1. If this error is negative or 
zero, guess1 is taken as the square 
root. If this error is positive (the trial 
square root is too high), a new trial 
square root (the mean of the two 
guesses) is computed, and the above 
division test is repeated until the er- 
ror becomes zero or negative. 

The trial square root from the fac- 
toring stage is biased high, which is 
advantageous because it leads to 
downward adjustment only of the 
trial square root. This is good because 
when the correct square root of an 
integer number is divided into the 
number it may yield a quotient great- 
er than the square root. For example, 
consider the integer square root of 
24. [The first trial square root would 
be 5 (the mean of 4 and 6), 24 divided 
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by 5 is 4, because the error (5—4) is 
+1, 4 is not the correct root.] The 
next trial square root would be 5 plus 
4 divided by 2, or 4. Because 24 divid- 
ed by 4 equals 5, an error of —1, the 
integer square root of 24 is 4. 

Although you might be suspicious 
of it, the above description should 
make sense, particularly if you try it 
out with paper and pencil. Though 
the bit-shifting routines are virtually 
opaque, this routine does work accu- 
rately and fast. 

Test runs computing the square 
root of integers from 0 to 60,000, as 
shown in Listing Three, page 106, in- 
dicate that on the average 7.0 shifts 
(excluding the test) and 1.8 divisions 
per square root were carried out; 25 
percent of the times only one divi- 
sion was required, and the maxi- 
mum was four. Running the full 
60,000 square root program on a 6- 
MHz NS16032 CPU took 27 seconds and 
17 seconds without printing or 
counting shifts and divisions. The 
program only prints the square root 
when it changes from the previously 
calculated one. 

Running the program without 
printing, counting, or square root 
calculations took 6 seconds; there- 
fore, the 60,000 square roots took 11 
seconds (17 — 6) to calculate. Thus, the 
average time per square root is a 
rather respectable 183 microseconds. 
The assembly-language routine was 
compiled and could be hand opti- 
mized. A couple of branches could be 
eliminated and the error term would 
not have to be stored. Is it worth the 
programming time? Not to me. 

Listing Four, page 106, shows Cath- 
ey s bit-shifting version as coded for 
the NS320xxX. Although it contains 
fewer instructions, it actually is con- 
siderably slower than the dividing 


.routine. When timed in the same 


fashion as the shift and divide rou- 
tine, it takes an average of 413 
microseconds. 

I believe that the NS320xX is the 
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most powerful microprocessor 
around. Its generally symmetrical in- 
struction set and many addressing 
modes make it relatively easy to 
write systems software for. After all, 
there is more to programming than 
calculating square roots! But its ap- 
parently poor showing for the bit- 
shifting routine, relative to the 
M68000 (413 vs. 200 to 250 microsec- 
onds), deserves some comments. If 
my two-year-old NS16032 were run- 
ning 8 MHz, then the difference 
would be somewhat less (310 vs. 200 
to 250 microseconds). Also, the 
M68000 times were estimated from in- 
struction-execution clock cycles, not 
with an actual test program; calculat- 
ing instruction-execution times ‘‘in 
vivo’ for sophisticated microproces- 
sors such as the NS320XX or the M68000 
is not an easy task. 

In any event, this short test and bit- 
shifting algorithm does hit the 
NS320XX below the belt in two ways. 
First, the NS320xXX has a single look- 
ahead instruction queue that may ac- 
tually cost time when executing 
short loops or frequent branches; 
this short, 14-instruction routine has 
to loop 16 times and may branch up 
to 16 times. Second, it does not have a 
simple bit-setting instruction for the 
efficient movement of single bits 
from a data or flag register to anoth- 
er register. The first problem is prob- 
ably inherent in its design, but the 
second is a less serious design or doc- 
umentation oversight. 

This little exercise has further con- 
vinced me that you are better off pro- 
gramming at a level where the logic 
of a program is evident. This is partic- 
ularly true with a modern micropro- 
cessor such as the NS320XX. I would 
urge anyone working with such a mi- 
croprocessor to forget about the bit- 
level tricks necessary with 8-bit pro- 
cessors and take a fresh and rational 
approach to programming. 


DDJ 


(Listings begin on page 106.) 
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Version (4.0) 

C-Plus (For iam microsott c) 
Turbo-Plus (For Turbo-Pascal) 
Pascal-Plus (For IBM-Microsoft Pascal) 


Compile 50 times faster. 

Plus Software is a library of procedures 
crafted in assembly language and designed 
to enhance Turbo-Pascal™ and IBM- 
Microsoft Pascal. No royalties are required 
for applications developed using Plus 
Software. These procedures are extremely 
fast and combine automatically with your 
programs. The benefit to you is faster 
development and compilation time and 
smaller, faster application programs. 
Features include: 


Multiple input/output field display 
map generation with edit masks 
* Instant text write *Snow removal 


"Instant attribute *RamWindow 
write (the fancy «Advanced 
cursor maker) keyboard control 
* Display chunk * Multiple screen 
retrieval snapshots 
* Graphics text and restores 
write (any size "File handle 1/0 
or position) — Variable Length 
“Pop-up anytime. Sample programs 
reference guide with source code 


° Pull Down ae 
Menu Maker Printed manual 


(Requires IBM PC 
a and compatibles) 


(For Turbo-Pascal) 
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Screen Genie 


The ultimate 

screen editor 

at any price. 

*® Creates and edits screens 
for programmers and 
non-programmers 

© Resident pop-up facility 
for creating your 
Own pop-ups 

© Full typematic and cursor 
control. Insert, overwrite in 
two dimensions 

© Paints/unpaints, draws/ 
undraws In any direction. 
Easy to use selection menus 

© Copy/move lines or window 
pleces with forgiving 
adjustment feature. 

© Save and edit any size 
windows. 

e SCREEN GRABBER lets you 
save and edit any screen 
from any application 

© CREATES FIELDS AND 
GENERATES CODE FOR 
PROGRAMMERS 

© Creates screens as 
executable files for 
non-programmers 

° Creates load files (for any 
language), .obj files, .com 
external procedures 

* Non-copy protected 


(Requires IBM PC 
s and Compatibles) 


Turbo Spawn lets you execute any size 
Turbo-Spawn neni yeticites another Turbo Pascal 
program or Dos commands without leaving 
39.95 current program and continue with next 
instruction. Breaks the 64K barrier. 


W.Nostradamus Inc. **" 


_UCheck [Money Order Name 
) (] Visa/MasterCard/Amex 


City/State 
U.S. shipping and handling included 
Outside U.S. pays postage 


Nostradamus inc. / 5320 South 900 East, 
SLC, Utah 84117 / Order by phone (60 
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PROGRAMMERS SERVICES 


OF INTEREST 





To write a program of 
moderate size that works as 
soon as it’s compiled is a 
programming feat. Pro- 
grammers understand the 
need for debugging tools in 
the same way that an engi- 
neer understands the need 
for an oscilloscope. Unfor- 
tunately, programmers 
generally have available 
only the most rudimentary 
debugging facilities. 

To help programmers 
out of the morass of loads, 
stores, jumps, and bit-fon- 
dling, Meridian Software 
Systems has developed an 
interactive system-inde- 
pendent source-level de- 
bugger for use with its Pas- 
cal compiler. It supports 
conditional breakpoints, 
subprogram traces, single- 
stepping, and full Pascal 
variable reference syntax. 

TurboRef, a software 
tool package for Pascal us- 
ers, is available from Gra- 
con Services. TurboRef lists 
each variable and constant 
reference in a user’s pro- 
gram. The list includes the 
line number and type of 
use for each reference. It 
can read multiple source 
files and process ‘“‘include”’ 
files. A program listing can 
also be created. The prod- 
uct runs on an IBM PC with 
128K memory and re- 
quires PC DOS 2.00. The 
price is $49.95. 

The sps C/Atlas compila- 
tion system from Software 
Products & Services is 
modularized to enable the 
installation of a total sys- 
tem or only those elements 
that are needed to round 
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out or upgrade an existing 
capability. The system con- 
sists of a front-end compil- 
er, syntax-oriented editor, 
code-generator compiler, 
TDL processor, adaptation 
list generator, device and 
switch allocation system, 
test and debug package, 
and consistency checker. 

ProMod, an integrated 
systems engineering envi- 
ronment from Promod 
Inc., supports the complete 
software life cycle on PCs 
as well as minicomputer 
systems. Versions are avail- 
able for IBM PCs having 
512K of memory and 10- 
Mb hard-disk storage and 
DEC VAX systems operating 
under VMS. 

Version 1.0 of P-TRAL is a 
language translator that 
enables programmers to 
convert Applesoft BASIC 
programs to Pascal. It reads 
the BASIC source program 
from disk and generates 
the equivalent Pascal 
source code. System re- 
quirements include: 64K to 
128K memory, 80-column 
display, two disk drives, 
and Apple DOS 3.3/Apple 
Pascal 1.1, 1.2, 1.3. P-TRAL is 
available from Woodchuck 
Industries. 

Cipherlink Corp. has in- 
troduced Calculations Pe- 
ripheral, a software pack- 
age that, when used with 
Any bridge software, 
translates data between in- 
compatible computers. 
The Any data bridge re- 
sides on an independent 


- computer connected to the 


source and target comput- 
ers through a terminal 
port. It acts as a bridge be- 
tween applications, ex- 
tracting a desired data field 
from a source application, 
transferring it to an inter- 
mediate database, and 
then automatically rekey- 
ing the data into the appro- 
priate field in the target ap- 


plications. Calculations 
Peripheral will run on any 
PC DOS or Unix-based 
computer. 

A three-part software 
package for analyzing and 
managing the IBM PC Net- 
work is available from 
Bickley Utilities. Net Set 
prompts the user interac- 
tively for information con- 
cerning the network and 
generates definitions for 
the complex parameters 
involved in the Net Start 
command. Net Stat is the 
on-line network statistics- 
gathering module. 

The Omni 64 from Oliver 
Advanced Engineering is 
plug-compatible with over 
300 computers and operat- 
ing systems. It has 65,536 
bytes of RAM, expandable 
to 262,144 bytes, and an un- 
limited firmware data- 
base. The product comes 
with eight logical buffers 
that can be configured to a 
different depth (to 256K 
words) and width (to 64 
bits) to correspond with up 
to eight different program- 
mable devices. The Omni 
64 uses a 6-MHz 280B pro- 
cessor to synchronize the 
processor to the wave- 
forms being produced. 

The Local Applications 
Bus, LAB 40, is a microcom- 
puter-to-peripheral inter- 
face and a hardware devel- 
opment system available 
from Computer Continu- 
um. LAB 40 is a structured 
parallel port that takes 16K 
memory or I/O locations in 
the host computer. It can 
drive up to 64 8-bit input 
ports and 64 8-bit output 
ports. 

AT SpeedFixer is a soft- 
ware utility package, avail- 
able from Dynamical Sys- 
tems. It features a 
memory-resident disk util- 
ity designed to prevent 
floppy disk drive errors 
and a keyboard utility that 


increases the speed. The 
price is $24.95. 

C. Itoh Products has in- 
troduced two high-resolu- 
tion RGB monitors. The 
CM1000 features both com- 
posite and RGB capability 
and a full-range audio 
speaker. In composite 
mode, it provides a 320 X 
240 resolution with a 4- 
MHz bandwidth; in RGB, 
the resolution jumps to 640 
X 240 with a 15-MHz band- 
width. The CM2000 fea- 
tures a nonglare black 
screen and is designed to 
be plug-compatible with 
the IBM PC, XT, and AT as 
well as the Apple Ile series. 

A four-channel Multibus 
single-board computer de- 
signed for sophisticated 
data communication pro- 
cessing is available from 
SBE Inc. The COM-4 has two 
10-MHz user-programma- 
ble DMA controllers that 
provide each of the four 
on-board serial ports with 
two channels of DMA. 
These channels transmit 
and receive blocks of data 
to and from on-board RAM 
memory. The on-board 
memory is dual-ported, al- 
lowing data to be accessed 
from either the local bus or 
Multibus. 

Communication Machin- 
ery Corp. has announced 
the ENP-60, a high-perfor- 
mance intelligent front-end 
processor on a single board. 
The board runs the com- 
munication protocols re- 
quired for the IBM PC/AT to 
communicate to other de- 
vices on Ethernet. The ENP- | 
60 also runs TCP/IP soft- 
ware as well as the Fusion 
higher-level protocol soft- 
ware for XNS. MS DOS and 
Xenix are also supported. 

A Virtual RAM (VRAM) 
card, designed to increase 
the capabilities and perfor- 
mance of the Waterloo Port 
Network Operating Sys- 
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tem, is available from Wa- 


terloo 


Equipped with a VRAM 
card, a port workstation 
can run 640K DOS applica- 
tions, concurrently access 
network services, 
mail, and perform terminal 
emulation and other multi- 
tasking applications. The 
VRAM card is a full-length 


board 


expandable to 1 Mb. It oper- 
ates with the IBM PC, XT, AT, 
and compatibles at speeds 
up to 8 MHz. The price is 
$695 ($995 in Canada). 

The GL Serial Card from 
Microtek provides a two- 
way serial interface to al- 
low the IBM PC/XT to com- 
municate with a variety of 
serial peripheral devices. It 
is functionally equivalent 
to the IBM asynchronous 
communication adapter 
and supports all software 
designed to run with this 
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with 512K of RAM, 


Mais oul. 
Atter youve digested this, you will. 
Introducing"Exploring Pascal: A Compiler 


For Beginners: 


The fastest way on the planet to learn and 


use Pascal. 


your programming ideas to work, 
to accomplish your specialized 
needs. And have the power of a 


S50 you can put some of 


pseudo-compuler, too. 


Its fast because we make 


it as easy as possible. 


Exploring Pascal is a 


unique, multimedia book and 
disk learning system. 


The manual is very easy 
to read. Because you don't want 


to have to struggle with the 
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card on the IBM PC/XT. 

Quepro, Version 1.5, en- 
ables managers to analyze 
data files using programs 
such as Lotus 1-2-3, dBASE 
Ill, and MailMerge. Avail- 
able from Bytel Corp., the 
new version permits users 
to generate ad hoc queries 
and reports without the | tem 
need for programmer as- 
sistance. It can be used as is 
with files generated using 
the Cogen COBOL program 
generator or customized 
by the developer of any 
COBOL program. Version 
1.5 is priced at $595 for MS 
DOS systems, $785 to $1,550 
for most Unix-based sys- 
tems, and $1,550 to $9,500 
for NCR and large Unix 
systems. 

Ampere has developed a| modes, 
68000-based portable com- 
puter called the WS-1. It in- 
cludes up to 512K of RAM, 
an 80-character-25-line LCD 





keyboard 


(200 X 480= dot bit-mapped 
graphics also supported), 
built-in speaker phone, 
auto-dial 300-baud modem, 
programmable voice/data 
microcassette, two RS-232 
ports, and disk I/O exten- 
sion bus. WS-1 also uses a 
multitasking operating sys- 
called 
.DOX. WS-1 is available from 
Workspace Computer. 
Boston Business Comput- 
ing has introduced the PC/ 
EDT, a PC implementation 
of BAX EDT, the de facto 
Digital mainframe editor. It 
features multiple buffers, 
undelete, keyboard redefi- 
nition, command macros, 
multiple file access, cut 
and paste, screen and/or 
command 
command files, 
and environmental vari- 
ables. It supports DOS 2.0 
and above as well as the 
full DOS directory struc- 


memory. 


bit test 
self-test. 


ture. The program, priced 
at $220, requires a single 
disk drive and 


A down-size 201C mo- 
dem that fits under a stan- 
dard telephone is available 
from Emerald Technology 
Group. The 201C features 
BIG | digital signal processing 
under microprocessor con- 
trol. It is designed for use 
on switched lines and in- 
cludes circuitry for auto- 
answer operation. The mo- 
dem, priced at $685, also 
incorporates several diag- 
nostic test functions in- 
cluding loopback, random- 
patterns, 


Turn-On is an intelligent 
power controller from 
Dynatech that provides un- 
attended remote access 
plus power protection. It 
features automatic log-on 
three-phase security: user 
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English language to learn a new computer 


language. 
The software tutorials are interactive, and 


the exercises are computer graded. So you know 
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am we Te doing, every step of the way. 
And there are animated 


demonstrations of important 


concepts. 


400 screens of help in all. 
To order, for the name 

of your nearest dealer, or for more 
information, just call the 


Ashton-Tate Publishing Group at 


800-437-4329, Ext. 248. 


| Trademark/owner: Ashton-Tate. © 1986 Ashton-Tate. 
All rights reserved. Specifications subject to change without notice. 


If youre computer literate 
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ID, password protection, 
and optional dial-back con- 
firmation. 


IBM PC 

The ConCur 400, an ad- 
vanced adapter board that 
transforms single-user pro- 
grams into multiterminal 
programs, is available 
from Vaxon. The board 
provides noninterlaced 
video for flicker-free dis- 
play and 720 X 348 mono- 
chrome high-resolution 
graphics with an IBM mon- 
itor or 640 X 400 with a 
Princeton SR-12 or compat- 
ible monitor. It runs on the 
IBM PC, XT, AT, and 
compatibles. 

Expert Edge is an expert 
system builder that can be 
used to develop interactive 
knowledge-based __ pro- 
grams for the IBM PC. It uses 
a deductive reasoning 
(backward chaining) infer- 
ence engine to generate ex- 
pert advice or to solve a 
problem requiring expert 
knowledge. Starting from 
rules entered by the expert, 
Expert Edge builds an inter- 
active program, called an 
advisor, that can then be re- 
ferred to by any PC user. 
These rules can incorpo- 
rate calculations, equations, 
logical reasoning, judg- 
ment, facts, and uncertain- 
ties. Features such as 
“True” and “Why” can fol- 
low the chain of logic being 
used forward or backward 
as well as show the builder 
exactly how any conclu- 
sion has been reached. The 
package is available from 
Human Edge Software and 
sells for $795. 

A software library of 
more than 8,800 IBM PC 
programs on a single CD- 
ROM disk is available from 
Reference Technology. It 
includes a selection of 
word processors, editors, 
database management sys- 
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tems, spreadsheets, finan- 
cial and business applica- 
tions, communication 
programs, math/statistical 
packages, education and 
music programs, and 
games. The price is $850. 
The Coretape system, a 
tape backup for the IBM PC, 
XT, AT, and compatibles, 
comes in both external and 
internal versions. Each of- 
fers 60 Mb of data storage. 
Coretape’s data transfer 
rate is 90,000 bytes per sec- 
ond with the tape stream- 
ing at 90 inches per second. 
The system is available 
from CORE International. 
UX Software created UX- 
Basic to service the IBM PC 
and compatibles running 
either the PC DOS or MS DOS 
operating systems. UX-Ba- 


sic is compatible with the 


earlier model, Version 2.0. 
Among its features are 
structured code; modular 
programming; and sequen- 
tial, direct, and ISAM files. 
LDR Systems ISONET 
package provides indepen- 
dent implementation of 
ISO standards for open sys- 
tems interconnection. The 
package can interconnect 
local area networks using 
X.25 protocols. It is avail- 


able for the IBM PC and a 


number of compatibles in- 
cluding the Olivetti M24 
and the Ericsson PC. It also 
runs on the Burroughs B20 
range, the DEC VAX-II, the 
ACT Apricot, and Sirvius. 
The Capture image digi- 
tizer board for IBM PC, XT, 
AT, and compatibles is 
available from Genoa Sys- 
tems Corp. The board al- 
lows users to capture an 
image from a standard RS- 
170 video input, such as a 
camera. The captured im- 
age frame is then stored in 
on-board memory. The ac- 
quired image can also be si- 
multaneously displayed on 
any composite graphics or 
TV monitor or printed on a 
standard graphics printer. 
The bit-mapped display 





supports high-screen reso- 
lution of 512 X 512 pixels. 
A frame memory of 256K 
xX 8 bits allows graphics 
overlay, requiring an ad- 
dress space of only 64K. 


C, Unix, and Xenix 
Computer Innovations an- 
nounced a C compiler for 
use with Digital Equipment 
Corp.’s VAX systems (run- 
ning under VMs) to develop 
ROM code for the Intel fam- 
ily of microprocessors. The 
C86 ROM-C compiler con- 
sists of a four-pass C com- 
piler that emits Intel-8086 
family object or assembler 
code, with code-genera- 
tion options for 80186 and 
80286 processors and 8087- 
80287 math coprocessors. 
Full library source code 
and an object module 
translator program are 
also included. 

Information Processing 
Techniques Corp. an- 
nounced revisions of two C 
language development 
tools: Tracer for C debug- 
ging and C68K C Cross 
Compiler for the Motorola 
68000 environment. Revi- 
sion 3.0 of Tracer features 
interactive run-time de- 
bugging. Revision 2.0 of 
C68K includes the 68010 
and 68020 as_ target 
processors. 

Unibol from Software 
Ireland Ltd. is a commer- 
cial programming lan- 
guage for Unix operating 
systems. It allows existing 
DIBOL-83 programs to run 
under Unix System III, Sys- 
tem V, and those look- 
alikes supporting the full 
range of system calls and 
providing the C standard 
I/O library. The package 
consists of a compiler, a 
run-time interpreter, a 
symbolic debugger, and a 
library of external utility 
subroutines. 

UniPress Software an- 
nounced software prod- 
ucts for the IBM PC/AT run- 
ning the Xenix operating 
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system. Uniplex II's inte- 
grated office automation 
package offers word pro- 
cessing, spreadsheet, and 
relational database facili- 
ties. Softkeys display avail- 
able editing options in all 
the components. UniPress 
EMACS is a multiwindow 
full-screen editor that in- 
cludes high-level program- 
ming aids and is extensible 
by user-defined macros 
and the built-in compiler 
MLISP programming lan- 
guage. Q-Calc interfaces 
with the Unix environ- 
ment through pipes and 
filters and allows users to 
create command scripts 
for spreadsheet routines. 
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Power Tools 
for power users™ 


Call today for our free catalog of design aids, com- 
pilers, libraries, debuggers, and support tools for 
Apple and IBM micro computers. The Power Tools 
catalog includes product descriptions, warranty and 
license terms, and all the information you need to 
make an intelligent purchase decision. 


TSF offers competitive pricing, free UPS shipping on 
orders over $100, and a reasonable return policy. Visa, 
MasterCard, and American Express accepted without 
surcharge. TSF helps you get your job done. 
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UniPress Software, 2025 
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NY 10011; (212) 924-0576. 
Reader Service Number 45. 
Workspace Computer, 
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Number 46. 
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Call Toll Free (24 hrs/7 days) 
Ask For Operator 2053 


1-800-543-6277 
Calif: 1-800-368-7600 


MASM 4.0 $109 

Turbo Pascal $45 

Mark Williams C $375 

Lets C $59 

Wendin OS Toolbox $69 
Blaise Async Manager $137 


| ¢ Dept C-1 * 649 Mission Street 
7 ¢ San Francisco * CA 94105 
‘ © (415) 957-0111 
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Instant-C: 
The Fastest 
Interpreter for C 
















































Runs your programs 50 
to 500 times faster than 
any other C language 
interpreter. 





ny C interpreter can save you compile 
and link time when developing your 
programs. But only Instant-C saves 
your time by running your program at 
compiled-code speed. 


Fastest Development. A program 
that runs in one second when compiled 
with an optimizing compiler runs in 
two or three seconds with Instant-C. 
Other interpreters will run the same 
program in two minutes. Or even ten 
minutes. Don’t trade slow compiling 
and linking for slow testing and debug- 
ging. Only Instant-C will let you edit, 
test, and debug at the fastest possible 
speeds. 


Fastest Testing. Instant-C immedi- 
ately executes any C expression, state- 
ment, or function call, and display the 
results. Learn C, or test your programs 
faster than ever before. 


Fastest Debugging. Instant-C gives 
you the best source-level debugger for 
C. Single-step by source statement, or 
set any number of conditional break- 
points throughout your program. Errors 
always show the source statements 
involved. Once you find the problem, 
test the correction in seconds. 


Fastest Programming. Instant-C 
can directly generate executable files, 
supports full K & R standard C, comes 
with complete library source, and works 
under PC-DOS, MS-DOS, or CP/M-86. 
Instant-C gives you working, well- 
tested programs faster than any other 
programming tool. Satisfaction guar- 
anteed, or your money back in first 

31 days. Instant-C is $495. 


Rational 


Systems, Inc. 
P.O. Box 480 
Natick, MA 01760 
(617) 653-6194 
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‘The C86 
C Compiler 
is Great... 








Computer 






When Dale Hillman 
decided to create the most 
exciting football simulation 
game ever, he knew he 
needed good language 
support. The portability and 
maintainability of C made it 
a natural choice. Which 
C compiler to choose was 
another matter entirely. 

“Of the many C compilers 
available, choosing the best 
one for the job was not easy. 
Comparing benchmarks, most 
compilers were strong in 
one or two categories, yet 
decidedly weak in others. 


Innovations 
Support ts 
Even GREATER’ 


PRESIDENT. XOR CORPORATION 
CREATOR OF “NFL CHALLENGE” 












Computer Innovations’ C86 
was the exception. | found 
the C86 Compiler con- 
sistently strong in all 
categories. 

‘C86 had a reputation for 
being a solid, reliable, high- 
performance compiler. 8087 
math support, source level 
debugging — it had it all. 
BEST of all was Computer 
Innovations’ incredible 
technical support. Their 
highly knowledgeable 
Support team was always 
available. Their assistance 
helped cut development 

















time substantially. And since 
NFL CHALLENGE took 12 1% 
man-years to create — 
every little bit helped. It was 
a service you just can’t 
place a dollar value on...” 


If you're working on the 
next great program, call 
Computer Innovations. We'll 
show you why you'll never 
have to look any further 
than C86. 


For Further Details 
Call Toll-Free: 


800-922-0169 





Behind Innovative Prograls — fi: 


Computer Inn ovations 


COMPUTER 
INNOVATIONS, INC. 


980 Shrewsbury Avenue, 

Tinton Falls, NJ 07724 USA (201) 542-5920 
EUROPEAN DISTRIBUTOR 

Boston Micro, Inc., TELEX: 6712477 BMI USA 


©1986 Computer Innovations. Inc. 
™ NFL Challenge is a trademark of NEL Properties 
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AT™ Pfantasies fo 


Want better speed and memory on your 
PC or XT without buying an AT? 

You’ ve got it! 

Phoenix’s new Pfaster™286 co-processor 
board turns your PC or XT into a high- 
speed engine 60 percent faster than an 
AT. Three times faster than an XT. It even 
supports PCs with third-party hard disks. 
But that’s only the beginning. 

You can handle spreadsheets and programs 
you never thought possible. Set up RAM disks in 
both 8088 and 80286 memory for linkage editor 
overlays or super-high-speed disk caching. All with 
Pfaster286’s mb of standard RAM, expandable to 
2mb, and dual-mode design. 

You can develop 8086/186/286 software on your XT 
faster. Execute 95 percent of the application packages 
that run on the AT, excluding those that require fancy I/O 
capabilities your PC or XT hardware just isn’t designed 


multi-format primt jobs for 


o handle. QOucuce multi-cop»y- 
spooling. Or, switch to native 8088 mode to handle 


XT and AT are tradem 
For the Ferrari aficionado: yes. We know t 


ation 


> Machines Corpor 
jac - he addition 


ark -International Busin 
eee tl > We are showing t 


his is a rear engine car. 
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Ptaster286 and Programmers 
of a second engine to sy m 





your PC or XI. 


hardware-dependent programs and 

back again without rebooting. All with 
Pfaster286’s compatible ROM software. 
And, Pfaster286 does the job unintrusively! 
No motherboard to exchange. No wires to 
solder. No chips to pull. Just plug it into a 
standard card slot, and type the 

magic word, “‘PFAST” 

If you really didn’t want an AT in the first. 
place, just what it could do for you, call or 
write: Phoenix Computer Products Corp., 
320 Norwood Park South, Norwood, MA 


02062: (800) 344-7200. In Massachusetts, 
617-762-5030. 


™ 
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3 er Products Corporation 
> : oof Phoenix Computer ; 
oars C or XT to inerease performance 
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Pfaster can be added to your P 
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